Tasword 64

50 KEY 3,CHR$(184)+CHR$(80) para modo imprimir; 50 KEY 3,CHR$(184)+CHR$(83) para guardar; Modificar linea 160 del BASIC para cambiar unidad de disco

SAVE"T"
RUN-T-

320 IF scan-0 THEN d-d+MID$(b,i,1):GOTO 360
330 IF scan-1 THEN d-d*"":GOTO 360
340 IF scan-2 THEN d-d*
350 IF scan-3 THEN d-d*
360 NEXT i:PRINT d
370 IF s-1 THEN PRINT#stream,d
380 WEND:CLOSEIN:CLOSEOUT:PRINT CHR$(7);"DONE":END
390 FOR jj=&6200 TO &6266:READ aa:zz=VAL("4"*aa)
400 POKE jj,zz:NEXT jj:RETURN
410 DATA 06,00,3e,00,32,05,60,32,0t>,60,32,07,60,3e,01,32,04
420 DATA e0,11,20,61,3a,00,60,b8,c a,64,62,04,13,la,32,08,60
430 DATA <Jf,3a,22,60,r.9,c2,4*.62,3a,06.60,a7,28,05,3e,00,32
440 DATA 04,60,3a,06,60,4f,3a,27,60,b9,30,0f,3a,06,60,32,07
450 DATA 60,78,32,05,60,3e,00,32,06,62,3a,06,60,3c,32,06,60
460 DATA 3a,08,60,a7,c a,15,62,3e,00,32,06,60,c3,15,62,c9,00
470 DATA 00,00,00

20 KEY 0 , C H R $ ( 1 9 ) * C H R $ ( 2 6 ) * c h r $ C 2 4 )
30 KEY 1 , C H R S ( 1 9 ) * C H R S ( 2 6 ) K H R S ( 2 4 ) + C H R S ( 1 3 ) * S P A C E $ ( 9 >
+CHRS(1)+SPACES(60)+CHRS(4)+CHR$(248)+CHR$(6)
40 KEY 2/ S T R I N G S ( 5 , 2 9 ) * C H R $ ( 1 9 8 ) * C H R $ ( 2 2 6 ) + C H R $ ( 1 9 8 )

TAPE:POKE 4BC9B,4C9

10 RANDOMIZE USR 62000
20 LPRINT " "
30 FOR I=1 TO 139
40 LPRINT CHR$(I);"TESTING 1 2 3 4"
50 NEXT I
60 LPRINT CHR$(143)"END OF TEST"