Home » Archimedes archive » Archimedes World » AW-1992-02 - Virus Removed.adf » February92 » !AWFeb92/Goodies/BasPrint/!BasPrint/TokenData
!AWFeb92/Goodies/BasPrint/!BasPrint/TokenData
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1992-02 - Virus Removed.adf » February92 |
Filename: | !AWFeb92/Goodies/BasPrint/!BasPrint/TokenData |
Read OK: | ✔ |
File size: | 071B bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
94 ABS 95 ACS 96 ADVAL 80 AND C7 8E APPEND 97 ASC 98 ASN 99 ATN C7 8F AUTO C6 8F BEAT C8 9E BEATS 9A BGET D5 BPUT D6 CALL C8 8E CASE D7 CHAIN BD CHR$ C8 8F CIRCLE D8 CLEAR DA CLG D9 CLOSE DB CLS FB COLOUR 9B COS 9C COUNT DC DATA DD DEF 9D DEG C7 90 DELETE DE DIM 81 DIV DF DRAW C7 91 EDIT C8 9D ELLIPSE CC ELSE 8B ELSE E0 END CB ENDCASE CD ENDIF E1 ENDPROC CE ENDWHILE C5 EOF 82 EOR 9E ERL 9F ERR 85 ERROR A0 EVAL A1 EXP A2 EXT A3 FALSE C8 90 FILL A4 FN E3 FOR E6 GCOL A5 GET BE GET$ E4 GOSUB E5 GOTO C7 92 HELP D3 HIMEM 93 HIMEM E7 IF A6 INKEY BF INKEY$ E8 INPUT C8 9A INSTALL A7 INSTR( A8 INT C0 LEFT$( A9 LEN E9 LET C8 9B LIBRARY 86 LINE C7 93 LIST AA LN C7 94 LOAD EA LOCAL AB LOG D2 LOMEM 92 LOMEM C7 95 LVAR C1 MID$( 83 MOD EB MODE C8 97 MOUSE EC MOVE C7 96 NEW ED NEXT AC NOT CA OF 87 OFF C7 97 OLD EE ON 8E OPENIN AE OPENOUT AD OPENUP 84 OR C8 91 ORIGIN FF OSCLI 7F OTHERWISE C8 A3 OVERLAY D0 PAGE 90 PAGE AF PI F0 PLOT C8 92 POINT B0 POINT( B1 POS F1 PRINT F2 PROC CF PTR 8F PTR C8 98 QUIT F3 READ C8 93 RECTANGLE F4 REM C7 98 RENUMBER F5 REPEAT F6 REPORT F7 RESTORE F8 RETURN C2 RIGHT$( B3 RND F9 RUN C7 99 SAVE B4 SGN B5 SIN D4 SOUND 89 SPC B6 SQR 88 STEP C8 A2 STEREO FA STOP C3 STR$ C4 STRING$( C6 8E SUM C8 94 SWAP C8 99 SYS 8A TAB( B7 TAN C8 9F TEMPO 8C THEN D1 TIME 91 TIME C8 9C TINT B8 TO FC TRACE B9 TRUE C7 9A TWIN C7 9B TWINO FD UNTIL BA USR BB VAL EF VDU C8 A1 VOICE C8 A0 VOICES BC VPOS C8 96 WAIT C9 WHEN C8 95 WHILE FE WIDTH
00000000 39 34 20 20 20 20 41 42 53 0a 39 35 20 20 20 20 |94 ABS.95 | 00000010 41 43 53 0a 39 36 20 20 20 20 41 44 56 41 4c 0a |ACS.96 ADVAL.| 00000020 38 30 20 20 20 20 41 4e 44 0a 43 37 20 38 45 20 |80 AND.C7 8E | 00000030 41 50 50 45 4e 44 0a 39 37 20 20 20 20 41 53 43 |APPEND.97 ASC| 00000040 0a 39 38 20 20 20 20 41 53 4e 0a 39 39 20 20 20 |.98 ASN.99 | 00000050 20 41 54 4e 0a 43 37 20 38 46 20 41 55 54 4f 0a | ATN.C7 8F AUTO.| 00000060 43 36 20 38 46 20 42 45 41 54 0a 43 38 20 39 45 |C6 8F BEAT.C8 9E| 00000070 20 42 45 41 54 53 0a 39 41 20 20 20 20 42 47 45 | BEATS.9A BGE| 00000080 54 0a 44 35 20 20 20 20 42 50 55 54 0a 44 36 20 |T.D5 BPUT.D6 | 00000090 20 20 20 43 41 4c 4c 0a 43 38 20 38 45 20 43 41 | CALL.C8 8E CA| 000000a0 53 45 0a 44 37 20 20 20 20 43 48 41 49 4e 0a 42 |SE.D7 CHAIN.B| 000000b0 44 20 20 20 20 43 48 52 24 0a 43 38 20 38 46 20 |D CHR$.C8 8F | 000000c0 43 49 52 43 4c 45 0a 44 38 20 20 20 20 43 4c 45 |CIRCLE.D8 CLE| 000000d0 41 52 0a 44 41 20 20 20 20 43 4c 47 0a 44 39 20 |AR.DA CLG.D9 | 000000e0 20 20 20 43 4c 4f 53 45 0a 44 42 20 20 20 20 43 | CLOSE.DB C| 000000f0 4c 53 0a 46 42 20 20 20 20 43 4f 4c 4f 55 52 0a |LS.FB COLOUR.| 00000100 39 42 20 20 20 20 43 4f 53 0a 39 43 20 20 20 20 |9B COS.9C | 00000110 43 4f 55 4e 54 0a 44 43 20 20 20 20 44 41 54 41 |COUNT.DC DATA| 00000120 0a 44 44 20 20 20 20 44 45 46 0a 39 44 20 20 20 |.DD DEF.9D | 00000130 20 44 45 47 0a 43 37 20 39 30 20 44 45 4c 45 54 | DEG.C7 90 DELET| 00000140 45 0a 44 45 20 20 20 20 44 49 4d 0a 38 31 20 20 |E.DE DIM.81 | 00000150 20 20 44 49 56 0a 44 46 20 20 20 20 44 52 41 57 | DIV.DF DRAW| 00000160 0a 43 37 20 39 31 20 45 44 49 54 0a 43 38 20 39 |.C7 91 EDIT.C8 9| 00000170 44 20 45 4c 4c 49 50 53 45 0a 43 43 20 20 20 20 |D ELLIPSE.CC | 00000180 45 4c 53 45 0a 38 42 20 20 20 20 45 4c 53 45 0a |ELSE.8B ELSE.| 00000190 45 30 20 20 20 20 45 4e 44 0a 43 42 20 20 20 20 |E0 END.CB | 000001a0 45 4e 44 43 41 53 45 0a 43 44 20 20 20 20 45 4e |ENDCASE.CD EN| 000001b0 44 49 46 0a 45 31 20 20 20 20 45 4e 44 50 52 4f |DIF.E1 ENDPRO| 000001c0 43 0a 43 45 20 20 20 20 45 4e 44 57 48 49 4c 45 |C.CE ENDWHILE| 000001d0 0a 43 35 20 20 20 20 45 4f 46 0a 38 32 20 20 20 |.C5 EOF.82 | 000001e0 20 45 4f 52 0a 39 45 20 20 20 20 45 52 4c 0a 39 | EOR.9E ERL.9| 000001f0 46 20 20 20 20 45 52 52 0a 38 35 20 20 20 20 45 |F ERR.85 E| 00000200 52 52 4f 52 0a 41 30 20 20 20 20 45 56 41 4c 0a |RROR.A0 EVAL.| 00000210 41 31 20 20 20 20 45 58 50 0a 41 32 20 20 20 20 |A1 EXP.A2 | 00000220 45 58 54 0a 41 33 20 20 20 20 46 41 4c 53 45 0a |EXT.A3 FALSE.| 00000230 43 38 20 39 30 20 46 49 4c 4c 0a 41 34 20 20 20 |C8 90 FILL.A4 | 00000240 20 46 4e 0a 45 33 20 20 20 20 46 4f 52 0a 45 36 | FN.E3 FOR.E6| 00000250 20 20 20 20 47 43 4f 4c 0a 41 35 20 20 20 20 47 | GCOL.A5 G| 00000260 45 54 0a 42 45 20 20 20 20 47 45 54 24 0a 45 34 |ET.BE GET$.E4| 00000270 20 20 20 20 47 4f 53 55 42 0a 45 35 20 20 20 20 | GOSUB.E5 | 00000280 47 4f 54 4f 0a 43 37 20 39 32 20 48 45 4c 50 0a |GOTO.C7 92 HELP.| 00000290 44 33 20 20 20 20 48 49 4d 45 4d 0a 39 33 20 20 |D3 HIMEM.93 | 000002a0 20 20 48 49 4d 45 4d 0a 45 37 20 20 20 20 49 46 | HIMEM.E7 IF| 000002b0 0a 41 36 20 20 20 20 49 4e 4b 45 59 0a 42 46 20 |.A6 INKEY.BF | 000002c0 20 20 20 49 4e 4b 45 59 24 0a 45 38 20 20 20 20 | INKEY$.E8 | 000002d0 49 4e 50 55 54 0a 43 38 20 39 41 20 49 4e 53 54 |INPUT.C8 9A INST| 000002e0 41 4c 4c 0a 41 37 20 20 20 20 49 4e 53 54 52 28 |ALL.A7 INSTR(| 000002f0 0a 41 38 20 20 20 20 49 4e 54 0a 43 30 20 20 20 |.A8 INT.C0 | 00000300 20 4c 45 46 54 24 28 0a 41 39 20 20 20 20 4c 45 | LEFT$(.A9 LE| 00000310 4e 0a 45 39 20 20 20 20 4c 45 54 0a 43 38 20 39 |N.E9 LET.C8 9| 00000320 42 20 4c 49 42 52 41 52 59 0a 38 36 20 20 20 20 |B LIBRARY.86 | 00000330 4c 49 4e 45 0a 43 37 20 39 33 20 4c 49 53 54 0a |LINE.C7 93 LIST.| 00000340 41 41 20 20 20 20 4c 4e 0a 43 37 20 39 34 20 4c |AA LN.C7 94 L| 00000350 4f 41 44 0a 45 41 20 20 20 20 4c 4f 43 41 4c 0a |OAD.EA LOCAL.| 00000360 41 42 20 20 20 20 4c 4f 47 0a 44 32 20 20 20 20 |AB LOG.D2 | 00000370 4c 4f 4d 45 4d 0a 39 32 20 20 20 20 4c 4f 4d 45 |LOMEM.92 LOME| 00000380 4d 0a 43 37 20 39 35 20 4c 56 41 52 0a 43 31 20 |M.C7 95 LVAR.C1 | 00000390 20 20 20 4d 49 44 24 28 0a 38 33 20 20 20 20 4d | MID$(.83 M| 000003a0 4f 44 0a 45 42 20 20 20 20 4d 4f 44 45 0a 43 38 |OD.EB MODE.C8| 000003b0 20 39 37 20 4d 4f 55 53 45 0a 45 43 20 20 20 20 | 97 MOUSE.EC | 000003c0 4d 4f 56 45 0a 43 37 20 39 36 20 4e 45 57 0a 45 |MOVE.C7 96 NEW.E| 000003d0 44 20 20 20 20 4e 45 58 54 0a 41 43 20 20 20 20 |D NEXT.AC | 000003e0 4e 4f 54 0a 43 41 20 20 20 20 4f 46 0a 38 37 20 |NOT.CA OF.87 | 000003f0 20 20 20 4f 46 46 0a 43 37 20 39 37 20 4f 4c 44 | OFF.C7 97 OLD| 00000400 0a 45 45 20 20 20 20 4f 4e 0a 38 45 20 20 20 20 |.EE ON.8E | 00000410 4f 50 45 4e 49 4e 0a 41 45 20 20 20 20 4f 50 45 |OPENIN.AE OPE| 00000420 4e 4f 55 54 0a 41 44 20 20 20 20 4f 50 45 4e 55 |NOUT.AD OPENU| 00000430 50 0a 38 34 20 20 20 20 4f 52 0a 43 38 20 39 31 |P.84 OR.C8 91| 00000440 20 4f 52 49 47 49 4e 0a 46 46 20 20 20 20 4f 53 | ORIGIN.FF OS| 00000450 43 4c 49 0a 37 46 20 20 20 20 4f 54 48 45 52 57 |CLI.7F OTHERW| 00000460 49 53 45 0a 43 38 20 41 33 20 4f 56 45 52 4c 41 |ISE.C8 A3 OVERLA| 00000470 59 0a 44 30 20 20 20 20 50 41 47 45 0a 39 30 20 |Y.D0 PAGE.90 | 00000480 20 20 20 50 41 47 45 0a 41 46 20 20 20 20 50 49 | PAGE.AF PI| 00000490 0a 46 30 20 20 20 20 50 4c 4f 54 0a 43 38 20 39 |.F0 PLOT.C8 9| 000004a0 32 20 50 4f 49 4e 54 0a 42 30 20 20 20 20 50 4f |2 POINT.B0 PO| 000004b0 49 4e 54 28 0a 42 31 20 20 20 20 50 4f 53 0a 46 |INT(.B1 POS.F| 000004c0 31 20 20 20 20 50 52 49 4e 54 0a 46 32 20 20 20 |1 PRINT.F2 | 000004d0 20 50 52 4f 43 0a 43 46 20 20 20 20 50 54 52 0a | PROC.CF PTR.| 000004e0 38 46 20 20 20 20 50 54 52 0a 43 38 20 39 38 20 |8F PTR.C8 98 | 000004f0 51 55 49 54 0a 46 33 20 20 20 20 52 45 41 44 0a |QUIT.F3 READ.| 00000500 43 38 20 39 33 20 52 45 43 54 41 4e 47 4c 45 0a |C8 93 RECTANGLE.| 00000510 46 34 20 20 20 20 52 45 4d 0a 43 37 20 39 38 20 |F4 REM.C7 98 | 00000520 52 45 4e 55 4d 42 45 52 0a 46 35 20 20 20 20 52 |RENUMBER.F5 R| 00000530 45 50 45 41 54 0a 46 36 20 20 20 20 52 45 50 4f |EPEAT.F6 REPO| 00000540 52 54 0a 46 37 20 20 20 20 52 45 53 54 4f 52 45 |RT.F7 RESTORE| 00000550 0a 46 38 20 20 20 20 52 45 54 55 52 4e 0a 43 32 |.F8 RETURN.C2| 00000560 20 20 20 20 52 49 47 48 54 24 28 0a 42 33 20 20 | RIGHT$(.B3 | 00000570 20 20 52 4e 44 0a 46 39 20 20 20 20 52 55 4e 0a | RND.F9 RUN.| 00000580 43 37 20 39 39 20 53 41 56 45 0a 42 34 20 20 20 |C7 99 SAVE.B4 | 00000590 20 53 47 4e 0a 42 35 20 20 20 20 53 49 4e 0a 44 | SGN.B5 SIN.D| 000005a0 34 20 20 20 20 53 4f 55 4e 44 0a 38 39 20 20 20 |4 SOUND.89 | 000005b0 20 53 50 43 0a 42 36 20 20 20 20 53 51 52 0a 38 | SPC.B6 SQR.8| 000005c0 38 20 20 20 20 53 54 45 50 0a 43 38 20 41 32 20 |8 STEP.C8 A2 | 000005d0 53 54 45 52 45 4f 0a 46 41 20 20 20 20 53 54 4f |STEREO.FA STO| 000005e0 50 0a 43 33 20 20 20 20 53 54 52 24 0a 43 34 20 |P.C3 STR$.C4 | 000005f0 20 20 20 53 54 52 49 4e 47 24 28 0a 43 36 20 38 | STRING$(.C6 8| 00000600 45 20 53 55 4d 0a 43 38 20 39 34 20 53 57 41 50 |E SUM.C8 94 SWAP| 00000610 0a 43 38 20 39 39 20 53 59 53 0a 38 41 20 20 20 |.C8 99 SYS.8A | 00000620 20 54 41 42 28 0a 42 37 20 20 20 20 54 41 4e 0a | TAB(.B7 TAN.| 00000630 43 38 20 39 46 20 54 45 4d 50 4f 0a 38 43 20 20 |C8 9F TEMPO.8C | 00000640 20 20 54 48 45 4e 0a 44 31 20 20 20 20 54 49 4d | THEN.D1 TIM| 00000650 45 0a 39 31 20 20 20 20 54 49 4d 45 0a 43 38 20 |E.91 TIME.C8 | 00000660 39 43 20 54 49 4e 54 0a 42 38 20 20 20 20 54 4f |9C TINT.B8 TO| 00000670 0a 46 43 20 20 20 20 54 52 41 43 45 0a 42 39 20 |.FC TRACE.B9 | 00000680 20 20 20 54 52 55 45 0a 43 37 20 39 41 20 54 57 | TRUE.C7 9A TW| 00000690 49 4e 0a 43 37 20 39 42 20 54 57 49 4e 4f 0a 46 |IN.C7 9B TWINO.F| 000006a0 44 20 20 20 20 55 4e 54 49 4c 0a 42 41 20 20 20 |D UNTIL.BA | 000006b0 20 55 53 52 0a 42 42 20 20 20 20 56 41 4c 0a 45 | USR.BB VAL.E| 000006c0 46 20 20 20 20 56 44 55 0a 43 38 20 41 31 20 56 |F VDU.C8 A1 V| 000006d0 4f 49 43 45 0a 43 38 20 41 30 20 56 4f 49 43 45 |OICE.C8 A0 VOICE| 000006e0 53 0a 42 43 20 20 20 20 56 50 4f 53 0a 43 38 20 |S.BC VPOS.C8 | 000006f0 39 36 20 57 41 49 54 0a 43 39 20 20 20 20 57 48 |96 WAIT.C9 WH| 00000700 45 4e 0a 43 38 20 39 35 20 57 48 49 4c 45 0a 46 |EN.C8 95 WHILE.F| 00000710 45 20 20 20 20 57 49 44 54 48 0a |E WIDTH.| 0000071b