home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 9
/
Publication_09_1996_High-Tech_de_Side_B.d64
/
spr.main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
57 lines
10 poke55,200:poke56,17:clr:poke650,128:a=2:v=53248:dima$(15)
15 fori=0to15:a$(i)="--- / -":sys6622,6912+i*64:poke7936+i,0:next
20 poke53281,14:poke53280,6:print"[147] [211][208][210][201][212][197]-[195][207][204][204][197][195][212][207][210]. ";
30 print" (w) 1985 by [194]eister-software. "chr$(14)chr$(8):poke7967,14
400 print" [176][192][192][192][178][192][192][192][174]":print" [221] [221] [221]":print" [221] [221] [221]
410 [153]" (NULL) (NULL) (NULL)":[153]" -tantantan>=tantan<":[153]" (NULL)peekank(NULL) (NULL)
411 print" [221] [173][192][192][179]":print" [221][206]r. [176][192][192][179]":print" [221] [221] [221]
412 [153]" /tantantantan>tantanexp":[151]v[170]23,0:[151]v[170]29,0:[151]v[170]28,2:[151]v[170]16,0
420 [151]2040,11:[151]2041,11:[151]v,72:[151]v[170]1,99:[151]v[170]21,3:[151]v[170]2,104:[151]v[170]3,99
440 [153]" ortantantantantantantan=tantantantantantantan^":[153]" (NULL)peekox (NULL) (NULL)":[153]" /tantantantantantantan>tantantantantantantanexp
450 print" f1[146] f3[146] f5[146] f7[146] *[146] _[146] +[146] -[146] s[146] 1[146] c[146] up[146] down[146] cr[146]
460 [153]" rightwait leftwait + len=wait oder ctrlwaitsys
600 :
610 gosub820:gosub830:gosub840:gosub870
620 geta$:ifa$="[145]"thenba=(ba+1)and3:gosub870
630 ifa$=""thenba=(ba-1)and3:gosub870
640 ifpeek(197)<>2then670
645 onpeek(653)goto660,650,660,660
650 po=(po+1-(peek(653)=2)*9)and255:gosub840:goto670
660 po=(po-1+(peek(653)=4)*9)and255:gosub835
670 ifa$="[133]"thenb=(peek(v+39)+1)and255:pokev+39,b:pokev+40,b
680 ifa$="[134]"thenpokev+37,(peek(v+37)+1)and255
690 ifa$="[135]"thenpokev+38,(peek(v+38)+1)and255
695 ifa$="[136]"thenb=(peek(v+33)+1)and15:pokev+33,b:poke7967,b
700 ifa$="*"thenpoke1191+4*mc,32:mc=1-mc:gosub820
730 ifa$="+"thenbo=(bo+1)and15:gosub830
750 ifa$="-"thenbo=(bo-1)and15:gosub830
760 ifa$="_"thensys6622,6912+bo*64:a$(bo)="--- / -":poke7936+bo,0:gosub880
770 ifa$="c"thenpokev+21,0:print"[147]":sys6619:pokev+21,3:goto20
800 ifa$=chr$(13)thena$(bo)=right$(" "+str$(po),3)+" /"+str$(ba):goto880
805 ifa$<>"1"then811
806 gosub970:sys6613
807 close1:pokev+21,3:goto20
811 ifa$<>"s"then818
812 gosub970:sys6616:goto807
818 goto620
820 poke1191+mc*4,42:poke55463+4*mc,7:return
830 poke214,16:print:printtab(7)right$(str$(bo),2)""a$(bo):return
835 ifba=0and(po>63andpo<128)thenpo=63
836 ifba=0andpo=11thenpo=10
840 ifba=0and(po>63andpo<128)thenpo=128
841 ifba=0andpo=11thenpo=12
850 poke214,12:print:printtab(7)right$(" "+str$(po),3)
855 ifba=0and(po>31andpo<64)thensys6610,po*64+2512,704:return
860 sys6610,ba*16384+po*64,704:return
870 poke214,10:print:printtab(8)str$(ba):goto850
880 sys6610,704,6912+bo*64:poke7936+bo,mc
890 a$="+":po=(po+1)and255:gosub840:goto730
970 d$=""
980 poke214,19:print:printtab(8-len(d$)/2)"[145] "chr$(34)d$chr$(34)" "
990 geta$:ifa$=""then990
1000 ifa$=chr$(13)andd$<>""thenpokev+21,0:open1,8,1,d$:return
1010 ifa$=""andd$<>""thend$=left$(d$,len(d$)-1)
1020 ifa$=""ora$=""ora$=chr$(13)ora$=chr$(141)then980
1030 ifa$=chr$(34)orlen(d$)>15then980
1050 d$=d$+a$:goto980