1993 SYS 58692:A=5:B=53280:POKEB,A:POKEB+1,A:PRINTCHR$(5):DIMA(48)
2000 PRINT"ROCKFORDS B.D.CONSTRUCTION SPIELE-TOOL"
2001 PRINTTAB(40)"FUER NORMALE CONSTR.SPIELE. NACH DEM"
2002 PRINTTAB(40)"STARTEN DES SPIELES EINFACH RESET UND"
2003 PRINTTAB(40)"DIESES TOOL LADEN UND STARTEN, DAMIT"
2004 PRINTTAB(40)"U.A. FOLGENDES ERREICHT WIRD:"
2005 PRINTTAB(40)"1. BIMMELMAUER-TON (MAGIC WALL) EIN!"
2006 PRINTTAB(40)"2. VERMEINTLICHE ABSTURZ-URSACHE"
2007 PRINTTAB(43)"BESEITIGEN (CREATED BY MAREK)!"
2008 PRINTTAB(40)"3. FARBE FUER 9, 19, 29, ..., 89, 99"
2009 PRINTTAB(43)"EINZUSAMMELNDE DIAMANTEN EINSCHALTEN!"
2010 PRINT"4. GENAUE CAVE-ANWAHL MIT DEM JOY!"
2011 PRINTTAB(48)"DRUECKE TASTE ZUM START"
2012 GETA$:IFA$=""THEN2012
3000 SYS58692:A=22935:IFPEEK(A)<>88ORPEEK(A+1)<>162THEN4000
3001 B=16413:IFPEEK(B)=165ANDPEEK(B+1)=210THENPOKEB+1,229
3002 B=22115:IFPEEK(B)=133ANDPEEK(B+1)=41THENPOKEB,234:POKEB+1,234
3003 B=16679:IFPEEK(B)=25THENPOKEB,26
3004 RESTORE:FORI=1TO136:READX:Y=Y+X:NEXT:IFY=13545THEN3008
3005 PRINT"FEHLER IN DEN DATAS FUER JOY-ANWAHL":PRINTTAB(40)"TASTE DRUECKEN"
3006 GETA$:IFA$=""THEN3006
3007 GOTO3030
3008 B=21548:IFPEEK(B-2)<>248ORPEEK(B-1)<>76THEN3030
3009 C=PEEK(21562):D=PEEK(21572):IFC=1ORC=13THEN3020
3010 B=24202:FORI=1TO100:Z=PEEK(B+I):IFZ=25ORZ=14THENC=I:D=C-1:GOTO3020
3011 NEXT:REM MANCHMAL GEHTS NUR MIT              PEEK($5E8B+1+I) ZUM BERECHNEN
3020 B=21548:RESTORE:FORI=0TO80:READX:POKEB+I,X:NEXT
3021 B=11696:FORI=0TO54:READX:POKEB+I,X:NEXT
3022 POKE21562,C:POKE11710,C:POKE21572,D:POKE11720,D
3023 POKE18957,8:POKE18963,15:REM EVTL. GESCHWINDIGKEIT BEI CAVE-ANWAHL HOEHER
3030 B=21420:FORI=4TO7:IFPEEK(B)<>2^I+1THENNEXT:GOTO3032
3031 POKEB,17:REM EVTL.WELLENFORM WIEDER DREIECK BEI TITELMUSIC
3032 B=21695:IFPEEK(B+1)=229ANDPEEK(B+2)=93THENFORI=0TO6:POKEB+I,234:NEXT
3033 REM RETURN+RESTORE-TASTE NEU BELEGT NACH EINLADEN DER SCREENS
3040 B=24202:FORI=1TO48:E=B+I*C:F=PEEK(E):IFF=25THENG=G+1:A(G)=1:H=H+1:NEXT
3041 IFF=14THENG=G+1:A(G)=2:J=J+1:NEXT
3042 PRINT"ANZAHL DER SCREENS:";G
3043 PRINTTAB(39)H;"ANWAEHLBAR:":PRINT:FORI=1TOG:IFA(I)=1THENPRINTI,:
3044 NEXT:PRINTTAB(79)J;"NICHT ANWAEHLBAR:":PRINT:FORI=1TOG:IFA(I)=2THENPRINTI,:
3045 NEXT:PRINTTAB(80)"ALLE SCREENS ANWAEHLEN (J/N)?"
3046 GETA$:IFA$=""THEN3046
3047 IFA$="N"THEN3050
3048 IFA$<>"J"THEN3046
3049 IFG>0THENFORI=1TOG:E=B+I*C:POKEE,25:NEXT
3050 SYS A:REM START DES ABGEBROCHENEN  BOULDER-DASH-CONSTRUCTION-SPIELES
4000 PRINT"DAS PRG STARTET NICHT MIT SYS";A
4001 PRINTTAB(40)"ABBRUCH -> ENDE"
5000 DATA32,176,45,201,15,240,74,238,7,61
5001 DATA165,4,24,105,13,133,4,165,5,105
5002 DATA0,133,5,160,12,177,4,201,25,240
5003 DATA17,201,14,240,228,169,1,141,7,61
5004 DATA169,139,133,4,169,94,133,5,173,7
5005 DATA61,133,214,32,74,75,162,1,160,2
5006 DATA181,212,24,105,16,153,214,11,157,193
5007 DATA60,105,52,153,215,11,136,136,202,16,235
5008 DATA32,82,65,41,4,208,44,206,7,61
5009 DATA165,4,56,233,13,133,4,165,5,233
5010 DATA0,133,5,160,12,177,4,201,25,240
5011 DATA17,201,14,240,228,169,1,141,7,61
5012 DATA169,139,133,4,169,94,133,5,76,92,84,32,82,65,96
6000 REM 1.2.-7.2.1993 ROCKFORD