Home » Recent acquisitions » Commodore_64 » tape036b_c64_commodore_format_power_pack_24.wav » catalog
catalog
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Recent acquisitions » Commodore_64 » tape036b_c64_commodore_format_power_pack_24.wav |
Filename: | catalog |
Read OK: | ✔ |
File size: | 15F4 bytes |
Load address: | 0801 |
Exec address: | 0000 |
File contents
100 REM ************************** 110 REM * * 120 REM * COMMODORE FORMAT * 130 REM * TAPE CATALOGUE PROGRAM * 140 REM * BASED ON A PROGRAM * 141 REM * BY PAULISSEN * 142 REM * * 150 REM ************************** 160 : 170 GOTO1010:REM **INITIALIZE** 180 : 190 REM ** CREATE CATALOGUE ** 200 : 210 POKEBO,0:POKEBA,0:PRINT"<clr><cursor down><cursor down>SECTION CREATE" 220 PRINT"▔▔▔▔▔▔▔ ▔▔▔▔▔▔" 230 PRINT"(INPUT OF FILES ON THE CASSETTE TAPE)" 240 PRINT"<cursor down><cursor down>TYPE IN THE NAME OF EACH FILE THAT YOU 250 PRINT"HAVE SAVED ON THE TAPE." 260 PRINT"<cursor down>WHEN DONE TYPE <white>*<pink> TO END THE INPUT" 270 RESTORE:READ D:AA=D 280 INPUT"<light blue><cursor down>FILE NAME<white>";N$ 290 IFN$<>"*"THENN$(D)=N$:D=D+1:GOTO280 300 EE=D:D=AA:IF(PEEK(W1)ANDW2)=W2THEN330 310 PRINT"<clr>PRESS THE":PRINT"<cursor down><reverse on>STOP<rev off> KEY" 320 PRINT"<cursor down>ON THE RECORDER":WAITW1,W2,255-W2 330 PRINT"<clr>PLEASE PRESS THE <reverse on>F.FWD<rev off> KEY." 340 PRINT"<cursor down>START THE MOTOR BY PRESSING ANY KEY, " 350 PRINT"THEN STOP AT THE START OF THE REQUIRED " 360 PRINT"FILE IN THE SAME WAY - I.E. PRESS ANY " 370 PRINT"KEY." 380 WAIT W1,W2,W2:GOSUB1190:DT=0 390 GOSUB1160:GOSUB1170:T1=TI 400 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><cursor down>PLEASE STOP AT START OF:-" 410 PRINT"<cursor down>"N$(D) 420 GOSUB1160:GOSUB1190:DT=TI-T1+DT:REM COMPUTE DIFFERENCE 430 SS(D)=DT-10:DT=DT+10:D=D+1 440 IF D<EETHENPRINT"<cursor down>OKAY, COMPUTED! PRESS ANY KEY":GOTO390 450 PRINT "<clr><white> STORING PROGRAM INFO IN DATA LINES" 460 PRINT" ▔▔▔▔▔▔▔ ▔▔▔▔▔▔▔ ▔▔▔▔ ▔▔ ▔▔▔▔ ▔▔▔▔▔" 470 PRINT"<cursor down><cursor down><cursor down> 1250 DATA "D 480 FORI=AATO EE-1:PRINT1260+I"DATA "N$(I)", "SS(I) 490 NEXT:PRINT"<black>GOTO510":PRINT"<pink>PAUSING...":FOR X=1TO2000:NEXT 500 POKE198,11:FORI=0TO10:POKE631+I,13:NEXT:PRINT"<home>":END 510 PRINT"<clr><cursor down><cursor down><cursor down><cursor down><yellow>NOW WIND BACK THE TAPE TO THE BEGINNING" 520 PRINT"AND STORE THIS UPDATED VERSION OF THE" 530 PRINT"PROGRAM OVER THE PREVIOUS VERSION":GOSUB1170:END 540 : 550 REM ** LOADING FROM CATALOGUE ** 560 : 570 RESTORE:READD:FOR I=0TOD-1:READN$(I),SS(I):NEXT 580 POKEBA,6:POKEBO,6:PRINT"<clr><white> LOAD REQUESTOR" 590 PRINT" ▔▔▔▔ ▔▔▔▔" 600 PRINT"<cursor down><cursor down><cursor down><cursor down><light blue> ╭🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹┐" 610 PRINT" │<white> F1 = MOVE POINTER UP LIST <light blue>│" 620 PRINT" │<white> F3 = MOVE POINTER DOWN LIST <light blue>│" 630 PRINT" │<white> RETURN SELECTS FILE TO LOAD <light blue>│" 640 PRINT" └🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹🭹╯ " 650 PRINT"<cursor down><cursor down><cursor down><cursor down> <white>HIT <reverse on> ANY KEY <rev off> TO LIST CATALOGUE":GOSUB 1160:AA=0 660 PRINT"<clr><yellow>CATALOGUE":A=0:PRINT 670 PRINT"▔▔▔▔▔▔▔▔▔" 680 FOR I=AATOAA+8:IFN$(I)<>""THEN PRINT TAB(3)"<cursor down><light gray>"N$(I) 690 NEXT 700 POKEBS+X1+A*X2,62:POKEBC+X1+A*X2,CC 710 GOSUB1160 720 IF(ASC(K$)=133)AND(A>0)THENPOKEBS+X1+A*X2,32:A=A-1:GOTO700 730 IF(ASC(K$)=134)AND(A<8)AND(N$(AA+A+1)<>"")THENPOKEBS+X1+A*X2,32:A=A+1:GOTO700 740 IFASC(K$)=13THEN780 750 IFASC(K$)=133ANDA=0ANDAATHENAA=AA-9:GOTO660 760 IF(ASC(K$)=134)AND(N$(I))<>""AND(A=8)THENAA=AA+9:GOTO660 770 GOTO700 780 : 790 IF(PEEK(W1)ANDW2)=W2THEN820 800 PRINT"<clr><white> >>> <light gray> PRESS THE <reverse on>STOP<rev off> KEY ON THE 810 PRINT" DATASSETTE":WAITW1,W2,255-W2 820 PRINT"<clr><white>CATALOGUE" 830 PRINT"▔▔▔▔▔▔▔▔▔" 840 PRINT"<cursor down><cursor down> >>> <light gray> PRESS THE <reverse on>F.FWD<rev off> KEY ON THE" 850 PRINT " DATASSETTE" 860 WAIT W1,W2,W2 870 PRINT"<white><cursor down><cursor down><cursor down>OKAY..." 880 T1=TI:T2=T1+SS(A+AA) 890 IFT2<TI THEN910 900 GOTO890 910 GOSUB1190 920 PRINT"<clr>CATALOGUE" 930 PRINT"▔▔▔▔▔▔▔▔▔" 935 PRINT"SEARCHING! FOUND - "CHR$(34)N$(A+AA)CHR$(34) 940 PRINT"<white><cursor down><cursor down>NOW PRESS THE <reverse on>PLAY<rev off> KEY" 950 PRINT"<cursor down>WHEN READY STRIKE THE SPACEBAR TO LOAD" 960 PRINT"THE PROGRAM":GOSUB1160 970 PRINT"<clr><cursor down><cursor down><cursor down>LOAD";CHR$(34)(N$(A+AA))CHR$(34) 980 POKE198,1:POKE631,13:POKE37148,252:PRINT"<home>":END 990 REM ** INITIALIZE PROGRAM ** 1000 : 1010 BS=1023:BC=55295:CC=13:BO=53280:BA=BO+1 1020 W1=1:W2=16:DIM N$(50),SS(59):X1=163:X2=80 1030 POKE650,128:POKEBO,8:POKEBA,9:PRINT"<clr>" 1040 PRINTTAB(12)"<cursor down><cursor down><cursor down><cursor down><yellow>COMMODORE FORMAT" 1050 PRINTTAB(9)"<cursor down>TAPE CASSETTE CATALOGUE" 1060 PRINTTAB(9)"<white>▔▔▔▔ ▔▔▔▔▔▔▔▔ ▔▔▔▔▔▔▔▔▔" 1070 PRINTTAB(10)"<light green><cursor down><cursor down><cursor down>PLEASE MAKE SELECTION<cursor down>" 1080 PRINTTAB(10)"<white><reverse on>C<rev off> <pink>CREATE NEW CATALOGUE." 1090 PRINTTAB(10)"<cursor down><white><reverse on>L<rev off> <pink>LOAD FROM CATALOGUE." 1095 PRINTTAB(10)"<cursor down><white><reverse on>R<rev off> <pink>READ INSTRUCTIONS." 1100 GOSUB1160:IFK$="L"THEN570 1105 IFK$="R"THENGOSUB3000:GOTO 1030 1110 IFK$<>"C"THEN1100 1120 GOTO 190 1130 : 1140 REM ** 'WAIT' ROUTINES ** 1150 : 1160 POKE198,0:WAIT198,1:GETK$:RETURN 1170 POKE192,0:POKE1,PEEK(1)AND223 1180 RETURN 1190 POKE192,1:POKE1,PEEK(1)OR32 1200 RETURN 1210 : 1220 : 1230 REM ** DATA FOR CATALOGUE ** 1240 : 1250 DATA 0 2997 : 2998 REM ** INSTRUCTIONS ** 2999 : 3000 POKEBA,6:POKEBO,6:PRINT"<clr><white>" 3040 PRINT"<clr>SAVE THIS PROGRAM AT THE BEGINNING OF" 3050 PRINT"<cursor down>A NEW CASSETTE TAPE. AFTER DOING THIS" 3060 PRINT"<cursor down>THEN SAVE EACH PROGRAM YOU WISH TO BE" 3070 PRINT"<cursor down>CATALOGUED, ONE AFTER THE OTHER, FROM" 3080 PRINT"<cursor down>THIS PROGRAM. ALLOW ABOUT TEN SECONDS" 3090 PRINT"<cursor down>OF TIME TO ELAPSE AFTER THIS PROGRAM" 3100 PRINT"<cursor down>BEFORE SAVING THE FIRST PROGRAM IN" 3110 PRINT"<cursor down>YOUR CATALOGUE. THEN ALLOW AROUND TEN" 3120 PRINT"<cursor down>SECONDS OF TIME BETWEEN EACH SAVE.":GOSUB4000 3130 PRINT"<clr><cursor down>YOU CAN STORE UP TO EIGHT PROGRAMS ON" 3140 PRINT"<cursor down>THE TAPE FOR YOUR CATALOGUE." 3150 PRINT"<cursor down>AS YOU SAVE EACH PROGRAM, MAKE A NOTE" 3160 PRINT"<cursor down>OF THE COUNTER TOGETHER WITH THE FILE" 3170 PRINT"<cursor down>NAME SO THAT WHEN YOU USE THE CATALOGUE" 3180 PRINT"<cursor down>TO LOAD A FILE IT DOES HAVE A CORRECT" 3190 PRINT"<cursor down>FILE NAME TO WORK WITH.":GOSUB4000 3200 PRINT"<clr>HAVING SAVED ALL YOUR PROGRAMS FOR THE" 3210 PRINT"<cursor down>CATALOGUE, NOW REWIND THE TAPE BACK TO" 3220 PRINT"<cursor down>THE BEGINNING AND LOAD THIS PROGRAM." 3230 PRINT"<cursor down>SELECT <light blue>'CREATE NEW CATALOGUE'<white> AND THEN" 3240 PRINT"<cursor down>ENTER THE FILE NAMES AS PROMPTED" 3250 PRINT"<cursor down>YOU WILL THEN BE REQUESTED TO ADJUST THE" 3260 PRINT"FAST FORWARD KEY <light blue>(F.FWD)<white>.":GOSUB4000 3265 PRINT"<clr>YOU CAN NOW START AND STOP THE " 3270 PRINT"<cursor down>DATASSETTE BY USING THE SPACEBAR." 3280 PRINT"<cursor down>DO THIS TO REACH THE COUNTER" 3290 PRINT"<cursor down>POSITIONS WHICH YOU NOTED FOR EACH" 3300 PRINT"<cursor down>PROGRAM." 3310 PRINT"<cursor down>WHEN YOU HAVE ENTERED ALL THE PROGRAMS " 3320 PRINT"<cursor down>ON THE TAPE, THEN REWIND IT TO THE VERY" 3330 PRINT"<cursor down>BEGINNING AND SAVE THIS PROGRAM OVER" 3340 PRINT"<cursor down>THE TOP OF THE OLD ONE. THIS SAVES" 3350 PRINT"<cursor down>ALL THE RELEVENT DATA FOR THE CATALOGUE":GOSUB4000 3360 PRINT"<clr>NOW YOU CAN USE '<light blue>LOAD FROM CATALOGUE<white>'" 3370 PRINT"<cursor down>WHEN YOU WANT A PARTICULAR PROGRAM FROM" 3380 PRINT"<cursor down>YOUR CATALOGUE." 3385 PRINT"<cursor down>BY SIMPLY FOLLOWING THE PROMPTS YOU " 3390 PRINT"<cursor down>CAN AUTOMATICALLY WIND THE TAPE TO THE" 3400 PRINT"<cursor down>CORRECT POSITION <light blue>(F.FWD)<white>, AND THEN" 3405 PRINT"<cursor down>BY PRESSING <light blue>PLAY<white> ON THE DATASSETTE" 3410 PRINT"<cursor down>FOLLOWED BY THE <light blue>SPACEBAR<white> THE SELECTED" 3420 PRINT"<cursor down>PROGRAM WILL BE LOADED INTO THE MEMORY" 3430 PRINT"<cursor down>OF THE COMPUTER, READY TO USE." 3440 PRINT"<cursor down><cursor down>HAVE FUN....<light blue>ENDS >>> ANY KEY":GOSUB1160:RETURN 4000 PRINT"<light blue><cursor down><cursor down><cursor down>....MORE >>> ANY KEY<white>":GOSUB1160:RETURN
"d � ************************** Cn � * * dx � * COMMODORE FORMAT * �� � * TAPE CATALOGUE PROGRAM * �� � * BASED ON A PROGRAM * �� � * BY PAULISSEN * �� � * * � � ************************** � : * � �1010:� **INITIALIZE** 0 � : M � � ** CREATE CATALOGUE ** S � : x � �BO,0:�BA,0:�"�SECTION CREATE"