64'er/64ER_CD.iso/sh4x/sh46a.d64/boot

Commodore BASIC | 1995-03-30 | 1KB | 10 lines

1 ONAGOTO42,43
10 POKE53280,0:POKE53281,0:PRINT"[147][142]"SPC(12)"[151][164][164]"SPC(20)"[164][164]"SPC(12)"[205] [152][146][164]"SPC(18)"[164][151] [206]"SPC(12)" [152][205] [155][146][164]"SPC(16)"[164][152] [206][151] "SPC(12)"[163][152] [155][205] [146][164]"SPC(14)"[164][155] [206][152] [151][146][163]"SPC(13)"[152][163][155] [205].[146]"SPC(6)"[160]"SPC(7)",[206][155] [152][146][163]"SPC(14)"[155][163] [205][146]"SPC(7)"[160]"SPC(6)"[206] [155][146][163]"SPC(15)"[163][163]"SPC(6)"[151][169][223][146]"SPC(6)"[163][163]
18 [153][166]13)"POKETOTOTOTOTOTOTOTOTOANDPOSPOSANDTOTOTOTOTOTOTOTOTO"[166]13)"(null)";:[129]I[178]1[164]20:[153]"USR";:[130]:[153]"(null)STOPS(null)2:L(null)"[199](34)"D"[199](34)",8  POKESGNPRINT#*WAITSINLISTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKE+"[166]13)"SGNPRINT#GETGETWAIT A T A M A S T ECLOSERPOKE+CLOSE"[166]12)"SGNPRINT#LOGSINLISTWAITTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOPOKE+STOPR(null)"[166]11)"POKESGN"[166]20)"+"[166]13)"SGNPRINT#GETLISTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(POKE+
26 PRINTSPC(13)"[180][152][161]  O A D I N G . . .[151][167]"SPC(13)"[180][152][188][191][155][146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][151][170]"SPC(13)"[204]";:FORI=1TO20:PRINT"[175]";:NEXT:PRINT"[186]"SPC(13)"[163][163][163][163][163][163][163][163][163][183][184][184][183][163][163][163][163][163][163][163][163][163]"SPC(15)"[164][164]"SPC(6)"[151][223][169]"SPC(6)"[164][164]"SPC(14)"[155][164],[206][146]"SPC(14)"[205].[155][146][164]"SPC(13)"[152][164][155] [206] [146]"SPC(14)" [205][155] [152][146][164]"SPC(12)"[151][164][152] [155][206] [146][163]"SPC(14)"[163][155] [205][152] [151][146][164]
35 [153][166]12)"POKE PRINT#(null) LISTWAITTAB("[166]16)"TAB(PRINT# (null)POKECLOSE"[166]12)"(null) PRINT#WAITTAB("[166]18)"TAB(POKE (null)"[166]12)"TAB(TAB("[166]20)"TAB(TAB(STOP":[151]198,4:[129]I[178]631[164]634:[151]I,13:[130]:[159]15,8,15,"M-W
":[152]15,"I":[161]#15,A$:[160]15:[139]A$[179][177]"0"[167][158]64738
36 [151]214,24:[158]58732:[153][163]14)"CONT(C) MARKT & TECHNIKSTOP
41 A=1:IF385<>PEEK(50944)+PEEK(51636)+PEEK(51400)THENLOAD"GARBAGE64",8,8
42 A=2:IF152<>PEEK(32768)+PEEK(32771)THENLOAD"MCODE $8000",8,8
43 FORI=2TO6:READA:POKEI,A:NEXT:DATA169,,133,157,96