SB LES 8
FILE INFORMATION
FILENAME(S): SB LES 8
FILE TYPE(S): PRG
FILE SIZE: 5K
FIRST SEEN: 2025-12-02 02:15:01
APPEARS ON: 1 disk(s)
FILE HASH
1ee2e7fe931af83e65b15de1fa1862548594cc9fd326175b933c6c79a3acafab
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HOPE YOU GAMES | SB LES 8 | PRG | The BAM Archive | 23 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 0A 00 9C 3A 99 22 93 9E 22 3B 3A 64 |.......:."..";:d|
00000010: 1A 20 30 2C 30 00 20 08 14 00 64 01 20 30 2C 31 |. 0,0. ...d. 0,1|
00000020: 00 45 08 1E 00 64 6F 20 39 35 2C 35 30 2C 22 01 |.E...do 95,50,".|
00000030: 53 42 2D 4C 45 53 20 02 44 45 45 4C 20 38 22 2C |SB-LES .DEEL 8",|
00000040: 31 2C 32 2C 38 00 62 08 28 00 64 6F 20 31 32 35 |1,2,8.b.(.do 125|
00000050: 2C 31 30 30 2C 22 02 44 4F 4F 52 22 2C 31 2C 32 |,100,".DOOR",1,2|
00000060: 2C 38 00 71 08 32 00 81 58 B2 31 A4 33 30 30 3A |,8.q.2..X.1.300:|
00000070: 82 00 87 08 3C 00 64 6F 20 32 2C 31 2C 22 01 4B |....<.do 2,1,".K|
00000080: 22 2C 31 2C 33 2C 38 00 96 08 46 00 81 58 B2 31 |",1,3,8...F..X.1|
00000090: A4 33 30 30 3A 82 00 AE 08 50 00 64 6F 20 33 30 |.300:....P.do 30|
000000A0: 39 2C 31 2C 22 01 4F 22 2C 31 2C 33 2C 38 00 BD |9,1,".O",1,3,8..|
000000B0: 08 5A 00 81 58 B2 31 A4 33 30 30 3A 82 00 D7 08 |.Z..X.1.300:....|
000000C0: 64 00 64 6F 20 33 30 39 2C 31 37 36 2C 22 01 45 |d.do 309,176,".E|
000000D0: 22 2C 31 2C 33 2C 38 00 E6 08 6E 00 81 58 B2 31 |",1,3,8...n..X.1|
000000E0: A4 33 30 30 3A 82 00 FE 08 78 00 64 6F 20 32 2C |.300:....x.do 2,|
000000F0: 31 37 36 2C 22 01 4E 22 2C 31 2C 33 2C 38 00 0A |176,".N",1,3,8..|
00000100: 09 82 00 64 66 20 35 3A 64 67 00 26 09 8C 00 99 |...df 5:dg.&....|
00000110: 22 93 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. |
00000120: 20 20 20 20 20 22 00 41 09 96 00 99 22 12 20 49 | ".A....". I|
00000130: 46 2E 2E 2E 54 48 45 4E 2E 2E 2E 45 4C 53 45 20 |F...THEN...ELSE |
00000140: 22 00 5C 09 A0 00 99 22 12 20 20 20 20 20 20 20 |".\....". |
00000150: 20 20 20 20 20 20 20 20 20 20 20 22 00 8E 09 AA | "....|
00000160: 00 99 22 11 46 4F 52 4D 41 54 3A 20 12 20 49 46 |..".FORMAT: . IF|
00000170: 56 4F 4F 52 57 41 41 52 44 45 54 48 45 4E 57 41 |VOORWAARDETHENWA|
00000180: 41 52 3A 45 4C 53 45 3A 56 41 4C 53 20 22 00 B2 |AR:ELSE:VALS "..|
00000190: 09 B4 00 99 22 4F 4D 20 45 45 4E 20 56 4F 4F 52 |...."OM EEN VOOR|
000001A0: 57 41 41 52 44 45 20 54 45 20 54 45 53 54 45 4E |WAARDE TE TESTEN|
000001B0: 2E 22 00 DF 09 BE 00 99 22 41 4C 53 20 41 41 4E |."......"ALS AAN|
000001C0: 20 44 45 20 56 4F 4F 52 57 41 41 52 44 45 20 56 | DE VOORWAARDE V|
000001D0: 4F 4C 44 41 41 4E 20 49 53 2C 20 44 41 4E 22 00 |OLDAAN IS, DAN".|
000001E0: 0D 0A C8 00 99 22 57 4F 52 44 54 20 44 45 20 49 |....."WORDT DE I|
000001F0: 4E 53 54 52 55 4B 54 49 45 20 27 57 41 41 52 27 |NSTRUKTIE 'WAAR'|
00000200: 20 55 49 54 47 45 56 4F 45 52 44 2E 22 00 44 0A | UITGEVOERD.".D.|
00000210: D2 00 99 22 11 41 4E 44 45 52 53 20 57 4F 52 44 |...".ANDERS WORD|
00000220: 54 20 44 45 20 49 4E 53 54 52 55 4B 54 49 45 20 |T DE INSTRUKTIE |
00000230: 27 56 41 4C 53 27 20 55 49 54 47 45 2D 56 4F 45 |'VALS' UITGE-VOE|
00000240: 52 44 2E 22 00 78 0A DC 00 99 22 11 31 30 20 50 |RD.".x....".10 P|
00000250: 52 49 4E 54 22 3B C7 28 33 34 29 3B 22 48 45 42 |RINT";.(34);"HEB|
00000260: 54 20 55 20 44 45 20 53 42 20 4C 45 53 20 4A 2F |T U DE SB LES J/|
00000270: 4E 22 3B C7 28 33 34 29 00 AA 0A E6 00 99 22 32 |N";.(34)......"2|
00000280: 30 20 46 45 54 43 48 20 22 3B C7 28 33 34 29 3B |0 FETCH ";.(34);|
00000290: 22 3C 43 4C 52 2F 48 4F 4D 45 3E 22 3B C7 28 33 |"<CLR/HOME>";.(3|
000002A0: 34 29 3B 22 2C 31 2C 41 24 22 00 D6 0A F0 00 99 |4);",1,A$"......|
000002B0: 22 33 30 20 49 46 20 41 24 3D 22 3B C7 28 33 34 |"30 IF A$=";.(34|
000002C0: 29 3B 22 4A 22 3B C7 28 33 34 29 3B 22 20 54 48 |);"J";.(34);" TH|
000002D0: 45 4E 20 35 30 22 00 0F 0B FA 00 99 22 34 30 20 |EN 50"......"40 |
000002E0: 49 46 20 41 24 3D 22 3B C7 28 33 34 29 3B 22 4E |IF A$=";.(34);"N|
000002F0: 22 3B C7 28 33 34 29 3B 22 20 54 48 45 4E 20 36 |";.(34);" THEN 6|
00000300: 30 3A 45 4C 53 45 3A 47 4F 54 4F 20 32 30 22 00 |0:ELSE:GOTO 20".|
00000310: 45 0B 04 01 99 22 35 30 20 50 52 49 4E 54 22 3B |E...."50 PRINT";|
00000320: C7 28 33 34 29 3B 22 47 45 46 45 4C 49 43 49 54 |.(34);"GEFELICIT|
00000330: 45 45 52 44 21 21 21 22 3B C7 28 33 34 29 3B 22 |EERD!!!";.(34);"|
00000340: 3A 45 4E 44 22 00 7B 0B 0E 01 99 22 36 30 20 50 |:END".{...."60 P|
00000350: 52 49 4E 54 22 3B C7 28 33 34 29 3B 22 47 45 43 |RINT";.(34);"GEC|
00000360: 4F 4E 44 4F 4C 45 45 52 44 21 21 21 21 22 3B C7 |ONDOLEERD!!!!";.|
00000370: 28 33 34 29 3B 22 3A 45 4E 44 22 00 97 0B 18 01 |(34);":END".....|
00000380: 99 22 11 57 49 4C 54 20 55 20 44 49 54 20 5A 49 |.".WILT U DIT ZI|
00000390: 45 4E 20 4A 2F 4E 22 00 AB 0B 22 01 A1 41 24 3A |EN J/N"..."..A$:|
000003A0: 8B 41 24 B2 22 4A 22 A7 33 31 30 00 C3 0B 2C 01 |.A$."J".310...,.|
000003B0: 8B 41 24 B2 22 4E 22 A7 33 37 30 3A 64 47 3A 89 |.A$."N".370:dG:.|
000003C0: 32 39 30 00 E0 0B 36 01 99 22 93 48 45 42 54 20 |290...6..".HEBT |
000003D0: 55 20 44 45 20 53 42 20 4C 45 53 20 4A 2F 4E 22 |U DE SB LES J/N"|
000003E0: 00 E8 0B 40 01 A1 43 24 00 F8 0B 4A 01 8B 43 24 |...@..C$...J..C$|
000003F0: B2 22 4A 22 A7 33 35 30 00 10 0C 54 01 8B 43 24 |."J".350...T..C$|
00000400: B2 22 4E 22 A7 33 36 30 3A 64 47 3A 89 33 32 30 |."N".360:dG:.320|
00000410: 00 2E 0C 5E 01 99 22 11 47 45 46 45 4C 49 43 49 |...^..".GEFELICI|
00000420: 54 45 45 52 44 21 21 21 22 3A 89 32 38 30 00 4C |TEERD!!!":.280.L|
00000430: 0C 68 01 99 22 11 47 45 43 4F 4E 44 4F 4C 45 45 |.h..".GECONDOLEE|
00000440: 52 44 21 21 21 21 22 3A 89 32 38 30 00 69 0C 72 |RD!!!!":.280.i.r|
00000450: 01 99 22 93 12 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00000460: 20 20 20 20 20 20 20 20 22 00 85 0C 7C 01 99 22 | "...|.."|
00000470: 12 20 52 45 50 45 41 54 2E 2E 2E 55 4E 54 49 4C |. REPEAT...UNTIL|
00000480: 2E 2E 2E 20 22 00 A1 0C 86 01 99 22 12 20 20 20 |... "......". |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 22 00 D3 0C 90 01 99 22 11 46 4F 52 4D 41 54 3A |"......".FORMAT:|
000004B0: 20 12 20 52 45 50 45 41 54 20 4C 4F 4F 50 20 55 | . REPEAT LOOP U|
000004C0: 4E 54 49 4C 20 56 4F 4F 52 57 20 3D 20 57 41 41 |NTIL VOORW = WAA|
000004D0: 52 20 22 00 01 0D 9A 01 99 22 4F 4D 20 45 45 4E |R "......"OM EEN|
000004E0: 20 42 45 50 41 41 4C 44 45 20 4C 4F 4F 50 20 55 | BEPAALDE LOOP U|
000004F0: 49 54 20 54 45 20 56 4F 45 52 45 4E 20 54 4F 54 |IT TE VOEREN TOT|
00000500: 22 00 29 0D A4 01 99 22 41 41 4E 20 44 45 20 56 |".)...."AAN DE V|
00000510: 4F 4F 52 57 41 41 52 44 45 20 56 4F 4C 44 41 41 |OORWAARDE VOLDAA|
00000520: 4E 20 57 4F 52 44 54 2E 22 00 3C 0D AE 01 99 22 |N WORDT.".<...."|
00000530: 11 56 4F 4F 52 42 45 45 4C 44 3A 22 00 59 0D B8 |.VOORBEELD:".Y..|
00000540: 01 99 22 11 31 30 20 52 45 50 45 41 54 20 20 20 |..".10 REPEAT |
00000550: 5F C0 C0 C0 C0 C0 C0 C9 22 00 75 0D C2 01 99 22 |_.......".u...."|
00000560: 32 30 20 58 3D 58 2B 31 3A 50 52 49 4E 54 20 58 |20 X=X+1:PRINT X|
00000570: 20 20 20 DD 22 00 91 0D CC 01 99 22 33 30 20 55 | ."......"30 U|
00000580: 4E 54 49 4C 20 58 3D 31 30 20 20 C0 C0 C0 C0 CB |NTIL X=10 .....|
00000590: 22 00 9B 0D D6 01 99 22 20 2E 22 00 A5 0D E0 01 |"......" .".....|
000005A0: 99 22 20 2E 22 00 AF 0D EA 01 99 22 20 2E 22 00 |." ."......" .".|
000005B0: C2 0D F4 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |.....A$:.A$."".5|
000005C0: 30 30 00 D3 0D FE 01 99 22 93 12 20 20 20 20 20 |00......".. |
000005D0: 20 20 22 00 E3 0D 08 02 99 22 12 20 52 43 4F 4D | "......". RCOM|
000005E0: 50 20 22 00 F3 0D 12 02 99 22 12 20 20 20 20 20 |P "......". |
000005F0: 20 20 22 00 1B 0E 1C 02 99 22 11 46 4F 52 4D 41 | "......".FORMA|
00000600: 54 3A 20 12 20 52 43 4F 4D 50 3A 57 41 41 52 3A |T: . RCOMP:WAAR:|
00000610: 45 4C 53 45 3A 56 41 4C 53 20 22 00 5C 0E 26 02 |ELSE:VALS ".\.&.|
00000620: 99 22 11 4F 4D 20 44 45 20 4C 41 41 54 53 54 45 |.".OM DE LAATSTE|
00000630: 20 49 46 2E 2E 2E 54 48 45 4E 2E 2E 2E 45 4C 53 | IF...THEN...ELS|
00000640: 45 20 54 45 52 55 47 20 54 45 20 4C 41 54 45 4E |E TERUG TE LATEN|
00000650: 20 55 49 54 56 4F 45 52 45 4E 2E 22 00 9B 0E 30 | UITVOEREN."...0|
00000660: 02 99 22 11 4D 45 54 20 52 43 4F 4D 50 20 4D 4F |..".MET RCOMP MO|
00000670: 45 54 20 4A 45 20 4E 49 45 54 20 44 45 20 48 45 |ET JE NIET DE HE|
00000680: 4C 45 20 49 46 2E 2E 2E 54 48 45 4E 54 45 52 55 |LE IF...THENTERU|
00000690: 47 20 49 4E 54 59 50 45 4E 2E 22 00 AE 0E 3A 02 |G INTYPEN."...:.|
000006A0: 99 22 11 56 4F 4F 52 42 45 45 4C 44 3A 22 00 BF |.".VOORBEELD:"..|
000006B0: 0E 3F 02 99 22 11 31 30 20 41 3D 41 2B 31 22 00 |.?..".10 A=A+1".|
000006C0: E8 0E 44 02 99 22 32 30 20 49 46 20 41 3D 31 30 |..D.."20 IF A=10|
000006D0: 54 48 45 4E 50 52 49 4E 54 20 41 3A 45 4C 53 45 |THENPRINT A:ELSE|
000006E0: 3A 47 4F 54 4F 31 30 22 00 0D 0F 4E 02 99 22 33 |:GOTO10"...N.."3|
000006F0: 30 20 49 46 20 41 3D 31 30 54 48 45 4E 45 4E 44 |0 IF A=10THENEND|
00000700: 3A 45 4C 53 45 3A 47 4F 54 4F 31 30 22 00 30 0F |:ELSE:GOTO10".0.|
00000710: 58 02 99 22 11 4B 41 4E 20 56 45 52 56 41 4E 47 |X..".KAN VERVANG|
00000720: 45 4E 20 57 4F 52 44 45 4E 20 44 4F 4F 52 3A 22 |EN WORDEN DOOR:"|
00000730: 00 41 0F 62 02 99 22 11 31 30 20 41 3D 41 2B 31 |.A.b..".10 A=A+1|
00000740: 22 00 69 0F 6C 02 99 22 32 30 20 49 46 41 3D 31 |".i.l.."20 IFA=1|
00000750: 30 54 48 45 4E 50 52 49 4E 54 20 41 3A 45 4C 53 |0THENPRINT A:ELS|
00000760: 45 3A 47 4F 54 4F 31 30 22 00 89 0F 76 02 99 22 |E:GOTO10"...v.."|
00000770: 33 30 20 52 43 4F 4D 50 3A 45 4E 44 3A 45 4C 53 |30 RCOMP:END:ELS|
00000780: 45 3A 47 4F 54 4F 31 30 22 00 9C 0F 80 02 A1 41 |E:GOTO10"......A|
00000790: 24 3A 8B 41 24 B2 22 22 A7 36 34 30 00 C2 0F 8A |$:.A$."".640....|
000007A0: 02 99 22 93 12 20 20 20 20 20 20 20 20 20 20 20 |..".. |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007C0: 20 22 00 E7 0F 94 02 99 22 12 20 4C 4F 4F 50 2E | "......". LOOP.|
000007D0: 2E 2E 2E 45 58 49 54 20 49 46 2E 2E 2E 2E 45 4E |...EXIT IF....EN|
000007E0: 44 20 4C 4F 4F 50 22 00 0C 10 9E 02 99 22 12 20 |D LOOP"......". |
000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000800: 20 20 20 20 20 20 20 20 20 20 20 22 00 3C 10 A8 | ".<..|
00000810: 02 99 22 11 4C 41 41 54 20 45 45 4E 20 4C 4F 4F |..".LAAT EEN LOO|
00000820: 50 20 55 49 54 56 4F 45 52 45 4E 20 45 4E 20 45 |P UITVOEREN EN E|
00000830: 49 4E 44 49 47 54 20 44 45 5A 45 22 00 72 10 B2 |INDIGT DEZE".r..|
00000840: 02 99 22 41 4C 53 20 41 41 4E 20 45 45 4E 20 42 |.."ALS AAN EEN B|
00000850: 45 50 41 41 4C 44 45 20 56 4F 4F 52 57 41 41 52 |EPAALDE VOORWAAR|
00000860: 44 45 20 56 4F 4C 44 41 41 4E 20 57 4F 52 44 54 |DE VOLDAAN WORDT|
00000870: 2E 22 00 85 10 BC 02 99 22 11 56 4F 4F 52 42 45 |."......".VOORBE|
00000880: 45 4C 44 3A 22 00 A2 10 C6 02 99 22 11 31 30 20 |ELD:"......".10 |
00000890: 4C 4F 4F 50 20 20 20 20 20 20 20 5F C0 C0 C0 C0 |LOOP _....|
000008A0: C9 22 00 BE 10 D0 02 99 22 20 2E 20 20 20 20 20 |."......" . |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 DA | ."..|
000008C0: 10 DA 02 99 22 20 2E 20 20 20 20 20 20 20 20 20 |...." . |
000008D0: 20 20 20 20 20 20 20 20 DD 22 00 F6 10 E4 02 99 | ."......|
000008E0: 22 35 30 20 45 58 49 54 20 49 46 20 58 3D 31 30 |"50 EXIT IF X=10|
000008F0: 20 C0 C9 20 DD 22 00 12 11 E9 02 99 22 20 2E 20 | .. ."......" . |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 20 | . |
00000910: DD 22 00 2E 11 EA 02 99 22 20 2E 20 20 20 20 20 |."......" . |
00000920: 20 20 20 20 20 20 20 20 20 20 DD 20 DD 22 00 4A | . .".J|
00000930: 11 EE 02 99 22 39 30 20 45 4E 44 20 4C 4F 4F 50 |...."90 END LOOP|
00000940: 20 20 20 C0 C0 C0 C0 C0 CB 22 00 64 11 F8 02 99 | ......".d....|
00000950: 22 31 30 30 20 2E 2E 2E 20 20 20 20 5F C0 C0 C0 |"100 ... _...|
00000960: C0 C0 CB 22 00 94 11 02 03 99 22 11 45 52 20 4D |..."......".ER M|
00000970: 41 47 20 45 45 4E 20 4F 4E 42 45 50 45 52 4B 54 |AG EEN ONBEPERKT|
00000980: 20 41 41 4E 54 41 4C 20 56 4F 4F 52 57 41 41 52 | AANTAL VOORWAAR|
00000990: 44 45 4E 22 00 C1 11 0C 03 99 22 47 45 54 45 53 |DEN"......"GETES|
000009A0: 54 20 57 4F 52 44 45 4E 20 4F 4D 20 44 45 20 4C |T WORDEN OM DE L|
000009B0: 4F 4F 50 20 54 45 20 56 45 52 4C 41 54 45 4E 2E |OOP TE VERLATEN.|
000009C0: 22 00 D4 11 16 03 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
000009D0: A7 37 39 30 00 FC 11 20 03 99 22 93 20 20 20 20 |.790... ..". |
000009E0: 20 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
000009F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 23 12 2A |...........".#.*|
00000A00: 03 99 22 20 20 20 20 20 20 20 20 20 DD 50 52 4F |.." .PRO|
00000A10: 47 52 41 4D 4D 41 20 50 52 4F 43 45 44 55 52 45 |GRAMMA PROCEDURE|
00000A20: 53 DD 22 00 4A 12 34 03 99 22 20 20 20 20 20 20 |S.".J.4.." |
00000A30: 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | .............|
00000A40: C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 7B 12 3E 03 99 |.........".{.>..|
00000A50: 22 11 11 11 11 45 45 4E 20 50 52 4F 43 45 44 55 |"....EEN PROCEDU|
00000A60: 52 45 20 49 53 20 45 45 4E 20 53 54 55 4B 4A 45 |RE IS EEN STUKJE|
00000A70: 20 50 52 47 20 5A 4F 41 4C 53 22 00 AA 12 48 03 | PRG ZOALS"...H.|
00000A80: 99 22 45 52 20 49 4E 20 47 45 57 4F 4E 45 20 42 |."ER IN GEWONE B|
00000A90: 41 53 49 43 20 53 55 42 52 4F 55 54 49 4E 45 53 |ASIC SUBROUTINES|
00000AA0: 20 42 45 53 54 41 41 4E 2E 22 00 F0 12 52 03 99 | BESTAAN."...R..|
00000AB0: 22 11 50 52 4F 43 45 44 55 52 45 53 20 57 4F 52 |".PROCEDURES WOR|
00000AC0: 44 45 4E 20 56 45 45 4C 20 47 45 42 52 55 49 4B |DEN VEEL GEBRUIK|
00000AD0: 54 20 49 4E 20 54 41 4C 45 4E 5A 4F 41 4C 53 20 |T IN TALENZOALS |
00000AE0: 43 4F 42 4F 4C 20 45 4E 20 46 4F 52 54 48 2E 22 |COBOL EN FORTH."|
00000AF0: 00 03 13 5C 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...\..A$:.A$."".|
00000B00: 38 36 30 00 13 13 66 03 99 22 93 12 20 20 20 20 |860...f..".. |
00000B10: 20 20 22 00 22 13 70 03 99 22 12 20 50 52 4F 43 | ".".p..". PROC|
00000B20: 20 22 00 31 13 7A 03 99 22 12 20 20 20 20 20 20 | ".1.z..". |
00000B30: 22 00 4E 13 84 03 99 22 11 46 4F 52 4D 41 54 3A |".N....".FORMAT:|
00000B40: 20 12 20 50 52 4F 43 20 4E 41 41 4D 20 22 00 78 | . PROC NAAM ".x|
00000B50: 13 8E 03 99 22 11 47 45 45 46 54 20 45 45 4E 20 |....".GEEFT EEN |
00000B60: 4E 41 41 4D 20 41 41 4E 20 45 45 4E 20 50 52 4F |NAAM AAN EEN PRO|
00000B70: 43 45 44 55 52 45 2E 22 00 A8 13 98 03 99 22 11 |CEDURE."......".|
00000B80: 41 4C 4C 45 20 4B 41 52 41 4B 54 45 52 53 20 4F |ALLE KARAKTERS O|
00000B90: 50 20 44 45 5A 45 4C 46 44 45 20 4C 49 4A 4E 20 |P DEZELFDE LIJN |
00000BA0: 41 4C 53 20 48 45 54 22 00 D5 13 A2 03 99 22 50 |ALS HET"......"P|
00000BB0: 52 4F 43 20 43 4F 4D 4D 41 4E 44 4F 20 57 4F 52 |ROC COMMANDO WOR|
00000BC0: 44 45 4E 20 41 41 4E 5A 49 45 4E 20 41 4C 53 20 |DEN AANZIEN ALS |
00000BD0: 4E 41 41 4D 22 00 16 14 AC 03 99 22 4D 45 4E 20 |NAAM"......"MEN |
00000BE0: 50 4C 41 41 54 53 54 20 44 55 53 20 42 45 53 54 |PLAATST DUS BEST|
00000BF0: 20 47 45 45 4E 20 50 52 47 2D 47 45 47 45 56 45 | GEEN PRG-GEGEVE|
00000C00: 4E 53 20 20 4F 50 20 44 45 5A 45 4C 46 44 45 20 |NS OP DEZELFDE |
00000C10: 4C 49 4A 4E 2E 22 00 29 14 B6 03 A1 41 24 3A 8B |LIJN.".)....A$:.|
00000C20: 41 24 B2 22 22 A7 39 35 30 00 3D 14 C0 03 99 22 |A$."".950.=...."|
00000C30: 93 12 20 20 20 20 20 20 20 20 20 20 22 00 50 14 |.. ".P.|
00000C40: CA 03 99 22 12 20 45 4E 44 20 50 52 4F 43 20 22 |...". END PROC "|
00000C50: 00 63 14 D4 03 99 22 12 20 20 20 20 20 20 20 20 |.c....". |
00000C60: 20 20 22 00 9A 14 DE 03 99 22 11 4F 4D 20 48 45 | "......".OM HE|
00000C70: 54 20 45 49 4E 44 45 20 56 41 4E 20 45 45 4E 20 |T EINDE VAN EEN |
00000C80: 50 52 4F 43 45 44 55 52 45 20 41 41 4E 20 54 45 |PROCEDURE AAN TE|
00000C90: 20 20 20 47 45 56 45 4E 2E 22 00 DF 14 E8 03 99 | GEVEN."......|
00000CA0: 22 11 44 49 54 20 43 4F 4D 4D 41 4E 44 4F 20 48 |".DIT COMMANDO H|
00000CB0: 45 45 46 54 20 44 45 5A 45 4C 46 44 45 20 46 55 |EEFT DEZELFDE FU|
00000CC0: 4E 43 54 49 45 20 41 4C 53 20 48 45 54 20 52 45 |NCTIE ALS HET RE|
00000CD0: 54 55 52 4E 2D 43 4F 4D 4D 41 4E 44 4F 2E 22 00 |TURN-COMMANDO.".|
00000CE0: 10 15 F2 03 99 22 11 45 45 4E 20 50 52 4F 43 20 |.....".EEN PROC |
00000CF0: 44 41 54 20 4F 50 20 45 45 4E 20 4E 41 41 4D 20 |DAT OP EEN NAAM |
00000D00: 57 41 43 48 54 20 5A 4F 55 20 5A 49 4A 4E 2E 22 |WACHT ZOU ZIJN."|
00000D10: 00 2A 15 FC 03 99 22 31 30 20 50 52 4F 43 20 49 |.*...."10 PROC I|
00000D20: 4E 50 55 54 20 4E 41 41 4D 22 00 55 15 06 04 99 |NPUT NAAM".U....|
00000D30: 22 32 30 20 50 52 49 4E 54 22 3B C7 28 33 34 29 |"20 PRINT";.(34)|
00000D40: 3B 22 47 45 45 46 20 55 57 20 4E 41 41 4D 22 3B |;"GEEF UW NAAM";|
00000D50: C7 28 33 34 29 00 88 15 10 04 99 22 33 30 20 46 |.(34)......"30 F|
00000D60: 45 54 43 48 20 22 3B C7 28 33 34 29 3B 22 3C 43 |ETCH ";.(34);"<C|
00000D70: 4C 52 2F 48 4F 4D 45 3E 22 3B C7 28 33 34 29 3B |LR/HOME>";.(34);|
00000D80: 22 2C 31 35 2C 41 24 22 00 9B 15 1A 04 99 22 34 |",15,A$"......"4|
00000D90: 30 20 45 4E 44 20 50 52 4F 43 22 00 AF 15 24 04 |0 END PROC"...$.|
00000DA0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 36 30 00 |.A$:.A$."".1060.|
00000DB0: BF 15 2E 04 99 22 93 12 20 20 20 20 20 20 22 00 |.....".. ".|
00000DC0: CE 15 38 04 99 22 12 20 43 41 4C 4C 20 22 00 DD |..8..". CALL "..|
00000DD0: 15 42 04 99 22 12 20 20 20 20 20 20 22 00 FA 15 |.B..". "...|
00000DE0: 4C 04 99 22 11 46 4F 52 4D 41 54 3A 20 12 20 43 |L..".FORMAT: . C|
00000DF0: 41 4C 4C 20 4E 41 41 4D 20 22 00 25 16 56 04 99 |ALL NAAM ".%.V..|
00000E00: 22 11 4F 4D 20 4E 41 41 52 20 45 45 4E 20 50 52 |".OM NAAR EEN PR|
00000E10: 4F 43 45 44 55 52 45 20 54 45 20 53 50 52 49 4E |OCEDURE TE SPRIN|
00000E20: 47 45 4E 2E 22 00 57 16 60 04 99 22 11 48 45 45 |GEN.".W.`..".HEE|
00000E30: 46 54 20 44 45 5A 45 4C 46 44 45 20 46 55 4E 43 |FT DEZELFDE FUNC|
00000E40: 54 49 45 20 41 4C 53 20 47 4F 54 4F 20 49 4E 20 |TIE ALS GOTO IN |
00000E50: 42 41 53 49 43 22 3B 00 68 16 6A 04 99 22 11 4D |BASIC";.h.j..".M|
00000E60: 45 52 4B 20 4F 50 3A 22 00 96 16 74 04 99 22 11 |ERK OP:"...t..".|
00000E70: 49 4E 20 45 45 4E 20 50 52 4F 43 20 44 49 45 20 |IN EEN PROC DIE |
00000E80: 41 41 4E 47 45 52 4F 45 50 45 4E 20 57 4F 52 44 |AANGEROEPEN WORD|
00000E90: 54 20 4D 45 54 22 00 BC 16 7E 04 99 22 43 41 4C |T MET"...~.."CAL|
00000EA0: 4C 2C 20 4D 41 47 20 47 45 45 4E 20 45 4E 44 20 |L, MAG GEEN END |
00000EB0: 50 52 4F 43 20 53 54 41 41 4E 2E 22 00 D0 16 88 |PROC STAAN."....|
00000EC0: 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 31 36 30 |..A$:.A$."".1160|
00000ED0: 00 F8 16 92 04 99 22 93 20 20 20 20 20 20 20 20 |......". |
00000EE0: 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............|
00000EF0: C0 C0 C0 C0 C0 C0 C9 22 00 1F 17 9C 04 99 22 20 |......."......" |
00000F00: 20 20 20 20 20 20 20 20 DD 50 52 4F 47 52 41 4D | .PROGRAM|
00000F10: 4D 41 20 56 41 52 49 41 42 45 4C 45 4E DD 22 00 |MA VARIABELEN.".|
00000F20: 46 17 A6 04 99 22 20 20 20 20 20 20 20 20 20 CA |F...." .|
00000F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F40: C0 C0 C0 C0 CB 22 00 5A 17 B0 04 A1 41 24 3A 8B |.....".Z....A$:.|
00000F50: 41 24 B2 22 22 A7 31 32 30 30 00 6B 17 BA 04 99 |A$."".1200.k....|
00000F60: 22 93 12 20 20 20 20 20 20 20 22 00 7B 17 C4 04 |".. ".{...|
00000F70: 99 22 12 20 4C 4F 43 41 4C 20 22 00 8B 17 CE 04 |.". LOCAL ".....|
00000F80: 99 22 12 20 20 20 20 20 20 20 22 00 B7 17 D8 04 |.". ".....|
00000F90: 99 22 11 46 4F 52 4D 41 54 3A 20 12 20 4C 4F 43 |.".FORMAT: . LOC|
00000FA0: 41 4C 20 56 41 52 31 2C 56 41 52 32 2C 56 41 52 |AL VAR1,VAR2,VAR|
00000FB0: 33 2C 2E 2E 2E 20 22 00 E2 17 E2 04 99 22 11 49 |3,... "......".I|
00000FC0: 4E 20 47 52 4F 54 45 52 45 20 50 52 47 20 57 4F |N GROTERE PRG WO|
00000FD0: 52 44 45 4E 20 45 52 20 53 4F 4D 53 20 56 45 4C |RDEN ER SOMS VEL|
00000FE0: 45 22 00 11 18 EC 04 99 22 56 41 52 49 41 42 45 |E"......"VARIABE|
00000FF0: 4C 45 4E 20 47 45 42 52 55 49 4B 54 20 57 41 54 |LEN GEBRUIKT WAT|
00001000: 20 44 45 20 4C 45 45 53 42 41 41 52 48 45 49 44 | DE LEESBAARHEID|
00001010: 22 00 38 18 F6 04 99 22 56 2F 45 20 4C 49 53 54 |".8...."V/E LIST|
00001020: 49 4E 47 20 53 54 45 52 4B 20 56 45 52 53 4C 45 |ING STERK VERSLE|
00001030: 43 48 54 45 52 54 2E 22 00 65 18 00 05 99 22 5A |CHTERT.".e...."Z|
00001040: 45 20 4E 45 4D 45 4E 20 4F 4F 4B 20 56 45 45 4C |E NEMEN OOK VEEL|
00001050: 20 47 45 48 45 55 47 45 4E 20 49 4E 20 42 45 53 | GEHEUGEN IN BES|
00001060: 4C 41 47 2E 22 00 90 18 0A 05 99 22 4E 55 20 49 |LAG."......"NU I|
00001070: 53 20 48 45 54 20 4D 4F 47 45 4C 49 4A 4B 20 4F |S HET MOGELIJK O|
00001080: 4D 20 44 45 5A 45 4C 46 44 45 20 56 41 52 2E 22 |M DEZELFDE VAR."|
00001090: 00 BE 18 14 05 99 22 54 45 47 45 4C 49 4A 4B 20 |......"TEGELIJK |
000010A0: 49 4E 20 48 45 54 20 48 45 4C 45 20 50 52 47 20 |IN HET HELE PRG |
000010B0: 45 4E 20 49 4E 20 53 4F 4D 4D 49 47 45 22 00 E3 |EN IN SOMMIGE"..|
000010C0: 18 1E 05 99 22 4B 4C 45 49 4E 45 20 52 4F 55 54 |...."KLEINE ROUT|
000010D0: 49 4E 45 53 20 54 45 20 47 45 42 52 55 49 4B 45 |INES TE GEBRUIKE|
000010E0: 4E 2E 22 00 20 19 28 05 99 22 11 56 4F 4F 52 42 |N.". .(..".VOORB|
000010F0: 45 45 4C 44 3A 20 20 20 41 24 3D 22 3B C7 28 33 |EELD: A$=";.(3|
00001100: 34 29 3B 22 53 55 50 45 52 4D 41 4E 22 3B C7 28 |4);"SUPERMAN";.(|
00001110: 33 34 29 3B 22 49 4E 20 48 45 54 20 50 52 47 22 |34);"IN HET PRG"|
00001120: 00 5A 19 32 05 99 22 20 20 20 20 20 20 20 20 20 |.Z.2.." |
00001130: 20 45 4E 20 41 24 3D 22 3B C7 28 33 34 29 3B 22 | EN A$=";.(34);"|
00001140: 53 42 2D 4C 45 53 22 3B C7 28 33 34 29 3B 22 49 |SB-LES";.(34);"I|
00001150: 4E 20 44 45 20 53 55 42 52 22 00 8B 19 3C 05 99 |N DE SUBR"...<..|
00001160: 22 11 42 49 4A 20 48 45 54 20 42 45 47 49 4E 20 |".BIJ HET BEGIN |
00001170: 56 41 4E 20 44 45 20 53 55 42 52 20 5A 45 54 54 |VAN DE SUBR ZETT|
00001180: 45 4E 20 57 45 20 44 41 4E 3A 22 00 9B 19 46 05 |EN WE DAN:"...F.|
00001190: 99 22 4C 4F 43 41 4C 20 41 24 22 00 CA 19 50 05 |."LOCAL A$"...P.|
000011A0: 99 22 11 53 55 50 45 52 4D 41 4E 20 57 4F 52 44 |.".SUPERMAN WORD|
000011B0: 54 20 44 41 4E 20 45 52 47 45 4E 53 20 41 4E 44 |T DAN ERGENS AND|
000011C0: 45 52 53 20 4F 50 47 45 2D 22 00 0A 1A 5A 05 99 |ERS OPGE-"...Z..|
000011D0: 22 53 4C 41 47 45 4E 20 5A 4F 44 41 54 20 41 24 |"SLAGEN ZODAT A$|
000011E0: 20 4F 50 4E 49 45 55 57 20 47 45 42 52 55 49 4B | OPNIEUW GEBRUIK|
000011F0: 54 20 4B 41 4E 20 20 20 20 57 4F 52 44 45 4E 2E |T KAN WORDEN.|
00001200: 20 28 53 42 2D 4C 45 53 29 22 00 1E 1A 64 05 A1 | (SB-LES)"...d..|
00001210: 41 24 3A 8B 41 24 B2 22 22 A7 31 33 38 30 00 30 |A$:.A$."".1380.0|
00001220: 1A 6E 05 99 22 93 12 20 20 20 20 20 20 20 20 22 |.n..".. "|
00001230: 00 41 1A 78 05 99 22 12 20 47 4C 4F 42 41 4C 20 |.A.x..". GLOBAL |
00001240: 22 00 52 1A 82 05 99 22 12 20 20 20 20 20 20 20 |".R....". |
00001250: 20 22 00 84 1A 8C 05 99 22 11 41 41 4E 20 48 45 | "......".AAN HE|
00001260: 54 20 45 49 4E 44 45 20 56 41 4E 20 44 45 20 52 |T EINDE VAN DE R|
00001270: 4F 55 54 49 4E 45 20 28 41 4C 53 20 53 42 2D 4C |OUTINE (ALS SB-L|
00001280: 45 53 22 3B 00 B3 1A 96 05 99 22 4E 49 45 54 20 |ES";......"NIET |
00001290: 4D 45 45 52 20 4E 4F 44 49 47 20 49 53 29 20 5A |MEER NODIG IS) Z|
000012A0: 45 54 20 4A 45 20 47 4C 4F 42 41 4C 20 45 4E 20 |ET JE GLOBAL EN |
000012B0: 44 45 22 00 F7 1A A0 05 99 22 4F 52 49 47 49 4E |DE"......"ORIGIN|
000012C0: 45 4C 45 20 57 41 41 52 44 45 20 56 41 4E 20 41 |ELE WAARDE VAN A|
000012D0: 24 20 28 53 55 50 45 52 4D 41 4E 29 20 57 4F 52 |$ (SUPERMAN) WOR|
000012E0: 44 54 54 45 52 55 47 20 47 45 49 4E 53 54 41 4C |DTTERUG GEINSTAL|
000012F0: 4C 45 45 52 44 2E 22 00 0B 1B AA 05 A1 41 24 3A |LEERD."......A$:|
00001300: 8B 41 24 B2 22 22 A7 31 34 35 30 00 30 1B B4 05 |.A$."".1450.0...|
00001310: 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 D5 |.". .|
00001320: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 |..............."|
00001330: 00 54 1B BE 05 99 22 20 20 20 20 20 20 20 20 20 |.T...." |
00001340: 20 20 20 DD 44 52 55 4B 20 45 45 4E 20 54 4F 45 | .DRUK EEN TOE|
00001350: 54 53 DD 22 00 78 1B C8 05 99 22 20 20 20 20 20 |TS.".x...." |
00001360: 20 20 20 20 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 C0 | .........|
00001370: C0 C0 C0 C0 C0 C0 CB 22 00 A6 1B D2 05 99 22 11 |......."......".|
00001380: 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |......... |
00001390: 20 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...........|
000013A0: C0 C0 C0 C0 C9 22 00 CA 1B DC 05 99 22 20 20 20 |....."......" |
000013B0: 20 20 20 20 20 20 20 20 20 DD 4F 4D 20 54 45 20 | .OM TE |
000013C0: 45 49 4E 44 49 47 45 4E DD 22 00 EE 1B E6 05 99 |EINDIGEN."......|
000013D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 CA C0 C0 |" ...|
000013E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 02 |............."..|
000013F0: 1C F0 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 35 |....A$:.A$."".15|
00001400: 32 30 00 0F 1C FA 05 9C 3A 99 22 93 22 3A 80 00 |20......:.".":..|
00001410: 00 00 22 C4 |..". |
.......:."..";:D. 0,0. ...D. 0,1.E...DO
95,50,".SB-LES .DEEL 8",1,2,8.B.(.DO 125
,100,".DOOR",1,2,8.Q.2..X.1.300:....<.DO
2,1,".K",1,3,8...F..X.1.300:....P.DO 30
9,1,".O",1,3,8...Z..X.1.300:..W.D.DO 309
,176,".E",1,3,8...N..X.1.300:....X.DO 2,
176,".N",1,3,8.....DF 5:DG.&...."..
".A....". IF...THEN...ELSE
".\. ..". "......".FORM
AT: . IFVOORWAARDETHENWAAR:ELSE:VALS "..
...."OM EEN VOORWAARDE TE TESTEN."......
"ALS AAN DE VOORWAARDE VOLDAAN IS, DAN".
..H.."WORDT DE INSTRUKTIE 'WAAR' UITGEVO
ERD.".D.R..".ANDERS WORDT DE INSTRUKTIE
'VALS' UITGE-VOERD.".X....".10 PRINT";G(
34);"HEBT U DE SB LES J/N";G(34)......"2
0 FETCH ";G(34);"<CLR/HOME>";G(34);",1,A
$".V...."30 IF A$=";G(34);"J";G(34);" TH
EN 50"......"40 IF A$=";G(34);"N";G(34);
" THEN 60:ELSE:GOTO 20".E...."50 PRINT";
G(34);"GEFELICITEERD!!!";G(34);":END".{.
..."60 PRINT";G(34);"GECONDOLEERD!!!!";G
(34);":END"......".WILT U DIT ZIEN J/N".
.."..A$:.A$."J".310.C.,..A$."N".370:DG:.
290...6..".HEBT U DE SB LES J/N"...@..C$
...J..C$."J".350...T..C$."N".360:DG:.320
...^..".GEFELICITEERD!!!":.280.L.H..".GE
CONDOLEERD!!!!":.280.I.R.."..
"...|..". REPEAT...UNTIL... "...
...". ".S....".FORMAT:
. REPEAT LOOP UNTIL VOORW = WAAR ".....
."OM EEN BEPAALDE LOOP UIT TE VOEREN TOT
".)...."AAN DE VOORWAARDE VOLDAAN WORDT.
".<....".VOORBEELD:".Y....".10 REPEAT
_......I".U.B.."20 X=X+1:PRINT X ."...
L.."30 UNTIL X=10 ....K"...V.." .".....
." ."......" .".B....A$:.A$."".500.S....
".. "......". RCOMP "......".
"......".FORMAT: . RCOMP:WAAR:ELSE:VAL
S ".\.&..".OM DE LAATSTE IF...THEN...ELS
E TERUG TE LATEN UITVOEREN."...0..".MET
RCOMP MOET JE NIET DE HELE IF...THENTERU
G INTYPEN."...:..".VOORBEELD:"...?..".10
A=A+1"...D.."20 IF A=10THENPRINT A:ELSE
:GOTO10"...N.."30 IF A=10THENEND:ELSE:GO
TO10".0.X..".KAN VERVANGEN WORDEN DOOR:"
.A.B..".10 A=A+1".I.L.."20 IFA=10THENPRI
NT A:ELSE:GOTO10"...V.."30 RCOMP:END:ELS
E:GOTO10"......A$:.A$."".640.B...."..
"......". LOOP.
...EXIT IF....END LOOP"......".
".<....".LAAT EEN LOO
P UITVOEREN EN EINDIGT DEZE".R...."ALS A
AN EEN BEPAALDE VOORWAARDE VOLDAAN WORDT
."......".VOORBEELD:"...F..".10 LOOP
_....I"...P.." . .".Z
.Z.." . ."......"50 EXIT
IF X=10 .I ."......" . .
."......" . . .".J...."90
END LOOP .....K".D...."100 ... _...
..K"......".ER MAG EEN ONBEPERKT AANTAL
VOORWAARDEN".A...."GETEST WORDEN OM DE L
OOP TE VERLATEN.".T....A$:.A$."".790...
..". U....................I".#.*
.." .PROGRAMMA PROCEDURES.".J.4.
." J....................K".{.>..
"....EEN PROCEDURE IS EEN STUKJE PRG ZOA
LS"...H.."ER IN GEWONE BASIC SUBROUTINES
BESTAAN."...R..".PROCEDURES WORDEN VEEL
GEBRUIKT IN TALENZOALS COBOL EN FORTH."
...\..A$:.A$."".860...F..".. ".".P.
.". PROC ".1.Z..". ".N....".FORMAT:
. PROC NAAM ".X....".GEEFT EEN NAAM AAN
EEN PROCEDURE."......".ALLE KARAKTERS O
P DEZELFDE LIJN ALS HET".U...."PROC COMM
ANDO WORDEN AANZIEN ALS NAAM"......"MEN
PLAATST DUS BEST GEEN PRG-GEGEVENS OP D
EZELFDE LIJN.".)....A$:.A$."".950.=...."
.. ".P.J..". END PROC ".C.T..".
"......".OM HET EINDE VAN EEN
PROCEDURE AAN TE GEVEN."......".DIT CO
MMANDO HEEFT DEZELFDE FUNCTIE ALS HET RE
TURN-COMMANDO."......".EEN PROC DAT OP E
EN NAAM WACHT ZOU ZIJN.".*...."10 PROC I
NPUT NAAM".U...."20 PRINT";G(34);"GEEF U
W NAAM";G(34)......"30 FETCH ";G(34);"<C
LR/HOME>";G(34);",15,A$"......"40 END PR
OC"...$..A$:.A$."".1060......".. ".
N.8..". CALL "...B..". "...L..".FOR
MAT: . CALL NAAM ".%.V..".OM NAAR EEN PR
OCEDURE TE SPRINGEN.".W.`..".HEEFT DEZEL
FDE FUNCTIE ALS GOTO IN BASIC";.H.J..".M
ERK OP:"...T..".IN EEN PROC DIE AANGEROE
PEN WORDT MET"...~.."CALL, MAG GEEN END
PROC STAAN.".P....A$:.A$."".1160......".
U....................I"......"
.PROGRAMMA VARIABELEN.".F...."
J....................K".Z....A$:.
A$."".1200.K....".. ".{.D..". LOCA
L "...N..". "...X..".FORMAT: . LOC
AL VAR1,VAR2,VAR3,... "......".IN GROTER
E PRG WORDEN ER SOMS VELE"......"VARIABE
LEN GEBRUIKT WAT DE LEESBAARHEID".8...."
V/E LISTING STERK VERSLECHTERT.".E...."Z
E NEMEN OOK VEEL GEHEUGEN IN BESLAG."...
..."NU IS HET MOGELIJK OM DEZELFDE VAR."
......"TEGELIJK IN HET HELE PRG EN IN SO
MMIGE"......"KLEINE ROUTINES TE GEBRUIKE
N.". .(..".VOORBEELD: A$=";G(34);"SUPE
RMAN";G(34);"IN HET PRG".Z.2.."
EN A$=";G(34);"SB-LES";G(34);"IN DE SUB
R"...<..".BIJ HET BEGIN VAN DE SUBR ZETT
EN WE DAN:"...F.."LOCAL A$".J.P..".SUPER
MAN WORDT DAN ERGENS ANDERS OPGE-"...Z..
"SLAGEN ZODAT A$ OPNIEUW GEBRUIKT KAN
WORDEN. (SB-LES)"...D..A$:.A$."".1380.0
.N..".. ".A.X..". GLOBAL ".R...."
. "......".AAN HET EINDE VAN DE R
OUTINE (ALS SB-LES";......"NIET MEER NOD
IG IS) ZET JE GLOBAL EN DE"... .."ORIGIN
ELE WAARDE VAN A$ (SUPERMAN) WORDTTERUG
GEINSTALLEERD."......A$:.A$."".1450.0...
.". U..............I".T...."
.DRUK EEN TOETS.".X.H.."
J..............K"...R..".........
. U..............I".J...."
.OM TE EINDIGEN."......"
J..............K"......A$:.A$."".15
20......:.".":...."D
> CLICK IMAGE PREVIEW FOR FULL MODAL