home *** CD-ROM | disk | FTP | other *** search
- 10 SA=33000:PRINT"ô"
- 20 A$="╙├╥┼┼╬á─╒═╨á64":GOSUB500
- 22 A$="BY ╥.╫. ┬OB K7 ╦OBER":GOSUB500
- 25 FORD=SATOD+219:READY:POKED,Y:NEXT
- 30 FORI=1TO40:PRINT"-";:FORJ=1TO20:NEXT:NEXT:PRINT
- 40 A$="┼NTER ╞OR ":GOSUB500
- 50 A$="úúúúúúú úúúúú ":GOSUB500
- 60 A$=" ├╘╥╠ ╚ ╒PPER/╟RAPHICS":GOSUB500
- 70 A$=" ├╘╥╠ ╠ ╒PPER/╠OWER ├ASE":GOSUB500
- 80 A$="╥╒╬/╙╘╧╨ ─ISABLE":GOSUB500
- 90 A$=" ╥┼╙╘╧╥┼ ╙CREEN ─UMP64":GOSUB500
- 100 A$=" ╙┘╙33000 ┴CTIVATE ─UMP":GOSUB500
- 110 PRINT:FORI=1TO40:PRINT"-";:FORJ=1TO20:NEXT:NEXT:PRINT
- 120 PRINT"æ╨RESS F1 TO SAVE THE OBJECT CODE TO DISK"
- 130 PRINT"╨RESS F3 TO RETURN TO ┬┴╙╔├ WITH ╙CREEN"
- 140 PRINT"─UMP64 ACTIVATED."
- 150 PRINT"╨RESS F5 TO RETURN TO ┬┴╙╔├ WITH ╙CREEN"
- 160 PRINT"─UMP64 DE-ACTIVATED."
- 170 GETA$:IFA$<"à"ORA$>"ç"THEN170
- 180 IFA$="å"THENPRINT"ô"CHR$(142)"SCREEN DUMP64 IS ACTIVE":END
- 190 IFA$="ç"THENSYS65126
- 192 PRINT" ╙AVING ╙├╥╬ ─╒═╨64.╙╥├"
- 200 POKE43,232:POKE44,128:POKE45,196:POKE46,129
- 210 SAVE"SCRN DUMP64.SRC",8,1
- 220 POKE43,1:POKE44,8:POKE 45,2:POKE 46,15:CLR
- 230 PRINT"┴LL ─ONE.":END
- 490 END
- 500 PRINTTAB(20-LEN(A$)/2)A$:RETURN
- 1000 DATA173,144,2,201,129,240,22,120,173,143,2,133,178,173,144,2,133
- 1001 DATA179,169,6,141,143,2,169,129,141,144,2,88,96,165,145,201,251
- 1002 DATA208,20,165,197,201,30,208,4,169,0,240,6,201,42,20
- 1003 DATA7,133,150,16,3,108,178,0,169,1,133,204,32,204,255,169,4
- 1004 DATA170,164,150,32,186,255,160,0,32,189,255,32,192,255,162,4,32
- 1005 DATA201,255,169,4,133,252,160,0,132,251,132,253,132,254,132,155,177
- 1006 DATA251,201,128,144,7,41,127,72,169,18,208,3,72,169,146,32,210
- 1007 DATA255,104,201,32,176,4,9,64,208,18,201,63,144,14,201,96,176
- 1008 DATA4,9,32,208,6,201,128,176,2,9,128,201,34,208,2,169,39
- 1009 DATA32,210,255,165,145,16,44,200,208,2,230,252,230,253,165,253,201
- 1010 DATA250,208,12,169,0,133,253,230,254,165,254,201,4,240,
- 1011 DATA165,155,201,40,208,9,169,0,133,155,169,13,32,210,255,208,153
- 1012 DATA169,13,32,210,255,32,204,255,169,4,32,195,255,76,131,164
-