-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathTOOLBL.MR1
More file actions
116 lines (116 loc) · 10.5 KB
/
Copy pathTOOLBL.MR1
File metadata and controls
116 lines (116 loc) · 10.5 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
10000 REM
10010 REM vdp instelling
10020 VDP(1)=VDP(1)AND191:CLS:SCREEN1:WIDTH32:POKE&HF3B1,25:VDP(0)=2:VDP(2)=6:VDP(3)=159:VDP(4)=0:VDP(5)=54:VDP(6)=7:GOSUB15040:VDP(1)=VDP(1)OR64:VDP(3)=255:VDP(4)=3:RETURN
15000 REM
15010 REM machinetaal
15020 DATA 21,00,20,01,00,08,3A,F8,F7,CD,56,00,C9,2A,F8,F7,7E,B7,C8,06,00,04,D6,12,20,FB,23,5E,23,56,C5,CD,42,DD,D5,21,00,00,11,08,00,B7,28,04,47,19,10,FD,D1,06,08,C5,CD
15030 DATA 42,DD,CD,4D,00,23,C1,10,F5,C1,10,DD,C9,01,00,02,79,0F,0F,0F,0F,4F,1A,13,FE,41,38,04,D6,37,18,02,D6,30,B1,4F,10,EA,79,C9,21,00,00,11,00,08,01,00,08,CD,4A,00,EB,CD,4D,00,EB,13,23,0B,78,B1,20,F1,C9
15040 RESTORE15020:FORI=0TO117:READH$:POKE&HDD00+I,VAL("&H"+H$):NEXT:DEFUSR0=&HDD0D:DEFUSR1=&HDD00:DUMY=USR1(245):GOSUB20020:DEFUSR2=&HDD5D:DUMY=USR2(0):POKE&HDD62,16:DUMY=USR2(0)
15050 POKE&HDD5F,32:POKE&HDD62,40:DUMY=USR2(0):POKE&HDD62,48:DUMY=USR2(0):RETURN
20020DUMY$=USR("2100003030300030002300FFE1CCCCCCE1FF24B6B6B6B6B6B6FEFE2500FFC1CCC1CCCCFF26FDFD3131313131302700003030100000002800060C0C0C0C0C062900603030303030602A7EFEC0FCFCC0FE7E2BF0F0F0F0F0F0F0F0")
20030DUMY$=USR("2C00FFCCC9C3C9CCFF2D000000003C3C00002F00FFCCCCE1F3F3FF3000003C6666663C003100001838181818003200003C660E387E003300003C660C663C003400000C1C2C7E0C003500007E607C067C003600003C607C663C00")
20040DUMY$=USR("3700007E060C1818003800003C663C663C003900003C663E063C003A00000030000030003B00C0C0C0C0C0C0C03C000070FC3C0E060A3D0E0E1C3C3E7E7EFF3E00FFC0CFC3CFCFFF3F00FFCCCCCCCCE0FF4000FFF3F3F3F3F3FF")
20050DUMY$=USR("4100FBFBFB00BFBFBF426000FFFF00606060430600FFFF0006060644FFC0A0908884828145FF03050911214181468182848890A0C0FF4781412111090503FF48000609090E50A040493C3C3C3C3C3C3C1C4A002070381C0E0703")
20060DUMY$=USR("4B00081C3870E0C0804C070E1C38702000004DC0E070381C0800004E0000143E3E1C08004F101010383838FFFF507EFEC0FCFCC0C0C051FCFEC6FEFCCEC6C6527CFEC6FEFEC6C6C653CCCCCCFC7830303054FCFE067CFCC0FEFC")
20070DUMY$=USR("55FCFEC6C6C6C6FEFC56333B7F7F7F7FECCC577FFFC0FE7E8EFEF958CEFC787078FCCC8E597EFEC0FC7E06FEFC5A7CFEC6C6C6C6FE7C5B00FFCCCCC0CCCCFF5C00FFFFFFFFFEFCFF5D00FFC0F3F3F3F3FF5E00FFCCC4C8CCCCFF")
20080DUMY$=USR("5F00FFC1CCC1CCC1FF6000FFCF9F3F7FFFFF6100003C667E6666006200007C667C667C006300003C6660663C006400007C6666667C006500007E6078607E006600007E60786060006700003C606E663C0068000066667E666600")
20090DUMY$=USR("6900001818181818006A00FFC1CCC1CFCFFF6B0000666C786C66006C0000606060607E006D0000667E7E6666006E000066766E6666006F00003C6666663C007000007C667C6060007100FFE1CFE1FCC1FF7200007C667C666600")
20100DUMY$=USR("7300003C603C067C007400007E1818181800750000666666663E007600006666243C18007700FFE1CCC0CCCCFF7800FFFFFFFFFFFFFF79000066663C1818007A00FFC0CFC3CFC0FF7B00FFE1CCCFCCE1FF7C00003A1312000000")
20110DUMY$=USR("7D00002060A0000000")
20000 REM
20010 REM karakterpatronen
25030DUMY$=USR("3CA5A5A5A5A5A5A5A53DB5B5959595959595419E6E8E9E9E6E8E9E42A5A5A5A5A5A5A5A543A5A5A5A5A5A5A5A544474747474747474745474747474747474746474747474747474747474747474747474748A5A5A5A5A5A5A5A5")
25040DUMY$=USR("49E5E5E5E5E5E5E5154A85858585858585854B85858585858585854C85858585858585854D85858585858585854E85858585858585854FE5E5E5E5E5E56565")
25000 REM
25010 REM karakterkleuren
25020 POKE&HDD25,&H20
25060RETURN
30000REM
30010REM scherm 1
30020PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAA DE AA AAA FG A";
30030PRINT"A DE A AAAA AA AA FG A AAAAAABCAA AAA A";
30040PRINT"A BC A AAAA AA BC AAA A AA BC DE A A A";
30050PRINT"A BC H FG AAAABCA AAAABCAAAAAAA AAAA AAA BCA AABCAAAVWXA AA AA BCA A";
30060PRINT"ABC AAAAA BCA AABC BCA AABC AAA BCAOO A";
30070PRINT"AAAAA AA AAAAAAAA AAAAAAAAAAA AA A AAA AA A A";
30080PRINT"AA AAA A AAAAAAAAAA DE AAA IAA FG AAA I";
30090PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA player field 01 key ";
30100RETURN
30110REM
30120REM scherm 2
30130PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA A";
30140PRINT"A AAAAAAAAAAAAAAAAAAAA AA AAAA AAAVWXA A AA AAAA AAAAA A A";
30150PRINT"AABCAAAAA DE DE A AA BC FG FG A AA BC AAAA AAABCAAAAA A";
30160PRINT"A BC AA AAAA ABCAA AA BC AA DE ABCAA AA BC AA FG ABCAA A";
30170PRINT"AAAAAAAAA AAAABCAAAAABCAA AAAAAAAAAAAAA AA BC BCAA AA AA DE BC BCAA I";
30180PRINT"A AA FG BC BCAA IA DE AAAAAAAAAAABCAAAAAAAAA FG AA BC A";
30190PRINT"AAAAABCAAAAAA BC H A BC BC AAA BC BC AAAAAA";
30200PRINT"AAAAAAAAAAAAAAAAOOOAAAAAAAAAAAAA player field 02 key ";
30210RETURN
30220REM
30230REM scherm 3
30240PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA DE DE AAAA FG FG A";
30250PRINT"A AAAAABCAAAAAAAA A AABCAAA BC DE AA A IABC BC FG AAAAA I";
30260PRINT"ABC AAAAAAAA AVWXA AAAAABCAAAAAAAAAAA AAAAA AAAAABC AAAAAAA AAAA";
30270PRINT"ABC AAA AAAAAAA AAAAAAAAA AAAAAAAAA AAAAAAAAAAA H AAAA";
30280PRINT"A AAAAABCAAAAA AA AAAAAAAA AAABCAA AAAAAAAAAA AABCAA AAAA";
30290PRINT" AABCA AAAAAAABCAABC AAA BCAABC AA";
30300PRINT"A BCAAAAAAAOOOAAOOOAAOOOAABCAAA BC BCAAA BC BCAA";
30310PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA player field 03 key ";
30320RETURN
30330REM
30340REM scherm 4
30350PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAA AAAA AA A";
30360PRINT"A AA A DE AA A AAAA AA FG AABCAAOOAA A";
30370PRINT"AAAAA AA AABCAABCAAAAAA AA AA AABCAABC A AA AAAAA AABCAABC A A";
30380PRINT"A AAAAA BCAAAAABCA AAAA AAA BCAAAAABCA AA AAA AAAAAAAAAAVWXABCA A";
30390PRINT"AAA AAAAAAAAABCAAA AA AAAAABCAAA AA AAAA BCA A";
30400PRINT"ABCAAAAAA BCA AABCAAAAA BCA AAAABCAAA AAAAA I";
30410PRINT"ABC AAAAA IABC DE AAAAAAABC FG H AAAAAA";
30420PRINT"AAAAAAOOOOOOOOAAAAAAAAAAAAAAAAAA player field 04 key ";
30430RETURN
30440REM
30450REM scherm 5
30460PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA DE AA FG A";
30470PRINT"ABCAAAAAAAAAAAAA AAAAAAAAAAA AABC DE AA AA AABC FG A A";
30480PRINT"ABCAAAAAAAAAAAAA A AABC AAAAAAVWXAA A AABC AAAAAAAAAA AA AAABCA";
30490PRINT"ABC AAAAAAA AA AABCAABC A AA ABCAABC A AAAAOOOOOABCA";
30500PRINT"ABC A AAAAAAAAAABCAAAAAAOOOABCA DE DEBCAAAAAAAAAABCAH FG FGBCA";
30510PRINT"A BCAAA AAAAAA AAAAAA BCAAA AAA A BCAAA A";
30520PRINT" BCAAA AAAAAOOOAAAAAAAAA IAAAAAAAAAAAAAAAAAA I";
30530PRINT"AAAAAAAAAAAAAAAAAAAAOOOOOOOOOAAA player field 05 key ";
30540RETURN
30550REM
30560REM scherm 6
30570PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAVWXAAA AA AAAAAA A";
30580PRINT"ABCAAAA AAAA AAAAAA AABC AAA AA AA AABC AAA AA AAAA A";
30590PRINT"ABC AAA DE A AAAAAAAAAAA A FG A AAAAAAAAAAAAA AAAAA DE A AAA";
30600PRINT"A AAAAAABCA FG A AAAA BC AABCAAAA AAAA BC AAAAABCAAAA A";
30610PRINT"A BC AAA BC AA AA BC AAA BC AAA IABCAAOOOAAAAAAA BC A I";
30620PRINT"ABC BC AAAAAABC AAAAAAAA AABC AAA AAAAAA AAAA A";
30630PRINT"AAAA AAA AAAA AAAAAABCA DE A H BCA FG A AA BCA";
30640PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA player field 06 key ";
30650RETURN
30660REM
30670REM scherm 7
30680PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAA DE AA AVWXA FG A";
30690PRINT"ABCA AAAAA AAAAA AAAA AABCA AAA A AABCA AAA AAA A";
30700PRINT"ABCA AAOOOAAA AAAAAABCAAAABCA DE A AAABC AABCA FG A AAABC A";
30710PRINT"ABCAAAAAA A AAAAAABCAAAAA AABC AAAAA ABC AABC AAAAA ABC H A";
30720PRINT"AAAAA AAAAAAAAAA AAAAAAAAAAA A DE AAAA A I AAA FG AA A I";
30730PRINT"AA A AABC AA ABCAAAAAA A AABC AA ABC AAAAABCAAAAABC AA ABC A";
30740PRINT"AAAABCAAAAAAAAA AA AAAABCAAAAABC DE AA BCAAAAABC FG AA BCA";
30750PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA player field 07 key ";
30760RETURN
30770REM
30780REM scherm 8
30790PRINT"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAA DE A";
30800PRINT"A DE FG AA FG AAAAAA AA AAAAA AAOOOAA DE A";
30810PRINT"ABCAA AAAA FG AABCAA AAAA AAAAAA AABCAAAAAAAAAAAA AAAA AAA A";
30820PRINT"ABC AA AOOAABC AABC A";
30830PRINT"AAAAA AAA A AA AAAA AA AAA I AAAA AA I";
30840PRINT"AAA A AAAAA A AAAAAAAAA AAAAA A AAA DE H AAAA";
30850PRINT"A AAABCAA FG AAAAAAAA BC AAAA AAAAAAAA BC AAAA AAVWXAA";
30860PRINT"AAAAAAAAAAAAOOOAAAAAAAAAAAAAAAAA player field 08 key ";
30870RETURN