10 FORP=54117TO54271:POKEP,32:NEXT 15 FORP=-28TO-1:PRINT:NEXT 30 B=16:C=4:GOTO3000 40 H$="":RETURN 41 H$="S":RETURN 42 H$="A":RETURN 43 H$=D1$:RETURN 44 H$="#"+D1$:RETURN 45 H$=D1$+D2$:RETURN 46 H$=D1$+".X":RETURN 47 X$=D1$+".Y":RETURN 48 H$="("+D1$+".X)":RETURN 49 H$="("+D1$+").Y)":RETURN 50 H$=D1$+D2$+".X":RETURN 51 H$=D1$+D2$+".Y":RETURN 52 H$="("+D1$+D2$+")":RETURN 65 PRINTB$;" ";F3$;F2$;:RETURN 70 PRINTB$;" ";F3$;F2$;",Y";:RETURN 75 PRINTB$;" (";F3$;F2$;")";:RETURN 80 D=F:C=4:GOSUB2000:PRINTB$;" ";H$; 81 IFPEEK(709)=255THENP=F:PRINTCHR$(161); 82 RETURN 100 DATAA95LDA,ADA,A54,A18,B19,B56,BDB,B9C,8DASTA,854,818,919,956,9DB 110 DATA99C,A25LDX,AEA,A64,BEC,B67,AA3,BA2,8EASTX,864,967 120 DATA8A3,9A2,A05LDY,ACA,A44,B46,BCB,A83,8CASTY,844,946,983,20FJSR 125 DATA4CFJMP,6CF 130 DATA90EBCC,B0EBCS,F0EBEQ,30EBMI,D0EBNE,10EBPL,50EBVC,70EBVS,C95CMP 140 DATACDA,C54,C18,D19,D56,DDB,D9C,E05CPX,ECA,E44,C05CPY,CCA,C44 150 DATACEADEC,C64,D66,DEB,CA1DEX,881DEY,EEAINC,E64,F66,FEB,E81INX 151 :READX$:IFLEN(X$)=3 160 DATAC81INY,481PHA,081PHP,681PLA,281PLP,2EAROL,264,2A0,366,3EB 170 DATA6EAROR,664,6A3,766,7EB,400RTI,600RTS,695ADC,6DA,654,618,719 180 DATA756,7DB,79C,E95SBC,EDA,E54,E18,F19,F56,FDB,F9C,2CABIT,244 190 DATA001BRK,181CLC,D81CLD,581CLI,B81CLV,495EOR,4DA,454,418,519 200 DATA556,5DB,59C,4EALSR,463,4A0,566,5EB,EA1NOP,095ORA,0DA,054,018 210 DATA119,156,1DB,19C,381SEC,F81SED,781SEI,295AND,2DA,254,218,319 220 DATA356,3DB,39C,0EAASL,063,0A0,166,1EB,END 400 RTI,600RTS,694ADC 1000 RESTORE:FORF=0TO151:READX$:IFLEN(X$)=3THENNEXT 1010 IFB$<>MID$(X$,4)THNNNEXT:PRINT"WRONG OP-CODE":GOTO3000 1020 IFA$=MID$(X$,3,1)THENGOTO3110 1030 READX$:IFLEN(X$)<>6GOTO1020 1040 PRINT"ADDRESS ERROR":GOTO3000 2000 H$="":Z=D:IFD>36ORB<2THENPRINT"ERROR":RETURN 2010 FORI=1TOC:L=INT(Z/B):U=INT(B*(Z/B-L)+.1):IFU>9THENU=U+7 2020 H$=CHR$(U+48)+H$:Z=L:NEXTI:RETURN 3000 D=P:C=4:GOSUB2000:PRINTH$;:INPUTH$:V$="":B$=V$ 3010 FORF=1TOLEN(H$):D$=MID$(H$,F,1):IFD$=" "THENNEXT 3020 IFD$="#"ORD$="("THENV$=D$:NEXT 3030 B$=B$+D$:NEXT:D2$=MID$(B$,6,2):D1$=MID$(B$,4,2):D$=V$+MID$(B$,4) 3031 J$=B$:B$=LEFT$(B$,4):D$=V$+MID$(J$,5) 3032 IFB$="LIST"THENGOSUB6500:GOTO7000 3033 IFB$="SAVE"THENGOSUB6500:GOTO60 3039 B$=LEFT$(B$,3):D$=V$+MID$(J$,4):GOTO6000 3040 L=LEN(D$):FORX=1TO15 3050 ONXGOSUB40,41,42,43,44,45,46,47,48,49,50,51,52 3070 IFLEN(H$)>LTHENPRINT" SYNTAX!":GOTO3000 3080 IFD$<>H$THENNEXT:PRINT" SYNTAX!":GOTO3000 3090 G=0:X=X+47:IFX>50THENG=1:IFX>57THENX=X+7:G=2 3095 IFX=53THENG=2 3100 A$=CHR$(X):GOTO1000 3110 FORF=1TOG+1:ONFGOSUB3130,3140,3150 3120 NEXT:P=P+G+1:GOTO3000 3130 H$=LEFT$(X$,2):GOSUB5000:POKEP,D:RETURN 3140 H$=D1$:GOSUB5000:POKEP+G,D:RETURN 3150 H$=D2$:GOSUB5000:POKEP+1,D:RETURN 5000 D=0:L=1:IFLEN(H$)=0THENRETURN 5002 FORX=LEN(H$)TO1STEP-1:U=ASC(MID$(H$,X))-48:IFU>9THENU=U-7 5010 D=D+U*L:L=L*16:NEXT:RETURN 6000 IFB$="ORG"THENH$=D$:GOSUB5000:P=D:GOSUB6500:GOTO3000 6010 IFB$="DFB"THENH$=D$:GOSUB5000:POKEP,D:P=P+1:GOTO3000 6020 IFB$="DFW"THEN6300 6025 IFLEFT$(B$,1)="B"ANDLEFT$(B$,2)<>"BI"ANDLEFT$(B$,2)<>"BR"THEN6100 6099 GOTO3040 6100 G=1 6110 IFLEN(D$)=4THEN6200 6120 IFLEN(D$)=2THENX=1:A$="E":GOTO1000 6130 GOTO3030 6200 H$=D$:GOSUB5000:D=D-P-2:IFABS(D)>128THENPRINT"OUT":GOTO3040 6210 IFD<0THEND=256+D 6220 GOSUB2000:D1$=MID$(H$,3):X=1:A$="E" 6230 G=1:GOTO1000 6300 H$=D$:GOSUB5000:PU=INT(D/256):POKEP,D-U*256 6310 POKEP+1,U:P=P+2:GOTO3000 6500 FORX=54085TO54100:POKEX,32:NEXT:PRINT:PRINT 6510 PRINT" ";B$;" ";D$:PRINT:RETURN 7000 FORF=1TOLEN(D$) 7005 IFMID$(D$,F,1)<>"-"THENNEXT:PRINT" SYNTAX":GOTO3000 7010 H$=MID$(D$,2,F-2):GOSUB5000:P=D:H$=MID$(D$,F+1):GOSUB5000:T=D 7050 IFPEEK(57088)<254THENRUN30 7060 IFP<=TGOTO7100 7070 PRINT:GOTO3000 7100 D=P:C=4:GOSUB2000:PRINT" ";H$;:D=PEEK(P):C=2:GOSUB2000 7110 RESTORE:FORF=0TO151:READX$:IFLEN(X$)=6THENB$=RIGHT$(X$,3) 7120 IFH$<>LEFT$(X$,2)THENNEXT:PRINT" !";H$:P=P+1:GOTO7050 7130 G=0:A=ASC(MID$(X$,3,1))-47:IFA>3THENG=1:IFA>10THENA=A-7:G=2 7140 IFA=6THENG=2 7145 IFA<>15GOTO7150 7146 D=PEEK(P+1):IFD>128THEND=D-256 7148 D=P+2+D:C=4:GOSUB2000:G=1:GOTO7170 7150 D=PEEK(P+G):GOSUB2000:D1$=H$:D=PEEK(P+1):GOSUB2000:D2$=H$ 7160 ONAGOSUB40,41,42,43,44,45,46,47,48,49,50,51,52 7170 PRINT" ";B$;" ";H$:P=P+G+1:GOTO7050 OK